(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 360166, 7598] NotebookOptionsPosition[ 351136, 7302] NotebookOutlinePosition[ 351479, 7317] CellTagsIndexPosition[ 351436, 7314] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "Subsection", CellChangeTimes->{{3.5020401548077917`*^9, 3.5020402154722614`*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BodePlot", "[", RowBox[{"\[CapitalPhi]_", ",", "f0_", ",", "fn_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[Omega]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"GraphicsColumn", "[", RowBox[{"{", RowBox[{ RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"20", "*", RowBox[{"Log10", "[", RowBox[{"Abs", "[", RowBox[{"\[CapitalPhi]", "/.", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"I", "*", "\[Omega]"}]}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", RowBox[{"10", "^", "f0"}], ",", RowBox[{"10", "^", "fn"}]}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"10", "^", "f0"}], ",", "0"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{ RowBox[{"180", "/", "Pi"}], "*", RowBox[{"Arg", "[", RowBox[{"\[CapitalPhi]", "/.", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"I", "*", "\[Omega]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", RowBox[{"10", "^", "f0"}], ",", RowBox[{"10", "^", "fn"}]}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"10", "^", "f0"}], ",", "0"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Step", "[", RowBox[{"\[CapitalPhi]_", ",", "tn_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"\[CapitalPhi]", "/", "s"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tn"}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{ 3.5020383204928746`*^9, 3.5020383853155823`*^9, {3.502038447725152*^9, 3.5020384481581764`*^9}, {3.502038520683325*^9, 3.5020386116205263`*^9}, { 3.5020387194796953`*^9, 3.5020387196727066`*^9}, {3.5020387559567814`*^9, 3.5020387808022027`*^9}, {3.502038819462414*^9, 3.5020388469689875`*^9}, { 3.5020388960057917`*^9, 3.502038944693577*^9}, {3.5020390832455015`*^9, 3.5020391573897424`*^9}, {3.5020391898936014`*^9, 3.502039229940892*^9}, { 3.502039261511698*^9, 3.5020392683440886`*^9}, {3.5020393732790904`*^9, 3.5020393828986406`*^9}, {3.502039475060912*^9, 3.5020394895847425`*^9}, { 3.502039594366736*^9, 3.502039653321108*^9}, {3.5020396835438366`*^9, 3.502039776385147*^9}, {3.5020398295641885`*^9, 3.502039834398465*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:043f\:0435\:0440\:0435\:0445\ \:043e\:0434\:0430 \:043c\:0435\:0436\:0434\:0443 \:0441\:0432\:044f\:0437\ \:0430\:043d\:043d\:043e\:0439 \:0438 \:043d\:043e\:0440\:043c\:0430\:043b\ \:044c\:043d\:043e\:0439 \:0421\:041a\ \>", "Subsection", CellChangeTimes->{{3.502039932303065*^9, 3.502039951958189*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["A", "gb"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[Psi]", "]"}], "0", RowBox[{"-", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, {"0", "1", "0"}, { RowBox[{"Sin", "[", "\[Psi]", "]"}], "0", RowBox[{"Cos", "[", "\[Psi]", "]"}]} }], ")"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "gb"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], "0"}, { RowBox[{"-", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], "0"}, {"0", "0", "1"} }], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.502043616837808*^9, 3.502043624327236*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["C", "gb"], "=", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", "\[Gamma]", "]"}], RowBox[{"Sin", "[", "\[Gamma]", "]"}]}, {"0", RowBox[{"-", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{"Cos", "[", "\[Gamma]", "]"}]} }], ")"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["D", "gb"], "=", RowBox[{ SubscriptBox["C", "gb"], ".", SubscriptBox["B", "gb"], ".", SubscriptBox["A", "gb"]}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5020400038181553`*^9, 3.502043640979189*^9, 3.5020437596069736`*^9, 3.502045165714399*^9, 3.5020518475865803`*^9, 3.502052064955013*^9, 3.5023556935766907`*^9, 3.502358320679952*^9, 3.502358365347507*^9, 3.5023594334435987`*^9, 3.5024387873624*^9, 3.5024388699451237`*^9, 3.5024390855184536`*^9, 3.502464984086873*^9, 3.5024650464914427`*^9, { 3.5024651707275486`*^9, 3.502465196369015*^9}, 3.5024652600256557`*^9, 3.502465760938387*^9, 3.502466086880781*^9, {3.502466506626029*^9, 3.50246652817124*^9}, 3.5024701141285763`*^9, 3.502470369095751*^9, 3.502470416793007*^9, 3.502470448347681*^9, 3.5024705004320655`*^9, 3.502470899764761*^9, 3.5024709549033604`*^9, 3.502473409748797*^9, 3.502473529866542*^9, 3.5024736327149553`*^9, 3.5024737386069503`*^9, 3.502473857982235*^9, 3.5024739049724693`*^9, 3.5024741428281097`*^9, 3.502474247632217*^9, 3.502474313858539*^9, 3.5024743797282543`*^9, 3.50247457279762*^9, 3.502474742471647*^9, 3.5024747901249046`*^9, 3.502474826534917*^9, 3.5024749141659737`*^9, 3.502475393751036*^9, 3.5024754875072007`*^9, 3.502476324045493*^9, 3.5024768345173616`*^9, 3.5024770070224648`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["D", "bg"], "=", RowBox[{"Transpose", "[", SubscriptBox["D", "gb"], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]}, { RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.502040028630574*^9, 3.5020436410331917`*^9, 3.502043759659977*^9, 3.502045165766402*^9, 3.502051847626582*^9, 3.5020520649980154`*^9, 3.502355693636694*^9, 3.5023583207379556`*^9, 3.5023583654255114`*^9, 3.5023594334695997`*^9, 3.5024387874444046`*^9, 3.5024388699871264`*^9, 3.5024390856224594`*^9, 3.502464984281884*^9, 3.502465046582448*^9, { 3.5024651707915525`*^9, 3.5024651964210176`*^9}, 3.502465260133662*^9, 3.502465761066394*^9, 3.5024660870067883`*^9, {3.502466506711032*^9, 3.5024665282292433`*^9}, 3.5024701141895795`*^9, 3.502470369150751*^9, 3.5024704168555083`*^9, 3.5024704484676824`*^9, 3.5024705005595675`*^9, 3.5024708998247643`*^9, 3.502470954962364*^9, 3.5024734098748045`*^9, 3.5024735299195447`*^9, 3.502473632829962*^9, 3.5024737387369556`*^9, 3.5024738580462384`*^9, 3.502473905028473*^9, 3.5024741429371166`*^9, 3.5024742477462234`*^9, 3.5024743139125423`*^9, 3.5024743797992587`*^9, 3.5024745728376226`*^9, 3.502474742596654*^9, 3.5024747902059093`*^9, 3.5024748265819197`*^9, 3.50247491428598*^9, 3.5024753938134365`*^9, 3.5024754876632013`*^9, 3.5024763241390934`*^9, 3.5024768345641613`*^9, 3.502477007069265*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["C", "gb"], "=."}], ";", RowBox[{ SubscriptBox["B", "gb"], "=."}], ";", RowBox[{ SubscriptBox["A", "gb"], "=."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["D", "gb"], "=", RowBox[{"ReplaceAll", "[", RowBox[{ SubscriptBox["D", "gb"], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "\[Rule]", RowBox[{"\[Psi]", "[", "t", "]"}]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", RowBox[{"\[CurlyTheta]", "[", "t", "]"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"\[Gamma]", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["D", "bg"], "=", RowBox[{"ReplaceAll", "[", RowBox[{ SubscriptBox["D", "bg"], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "\[Rule]", RowBox[{"\[Psi]", "[", "t", "]"}]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", RowBox[{"\[CurlyTheta]", "[", "t", "]"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"\[Gamma]", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.502043736129631*^9, 3.502043750931478*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:043f\:0435\:0440\:0435\:0445\ \:043e\:0434\:0430 \:043c\:0435\:0436\:0434\:0443 \:0441\:0432\:044f\:0437\ \:0430\:043d\:043d\:043e\:0439 \:0438 \:0441\:043a\:043e\:0440\:043e\:0441\ \:0442\:043d\:043e\:0439 \:0421\:041a\ \>", "Subsection", CellChangeTimes->{{3.502040072733097*^9, 3.5020400799275084`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["A", "ab"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[Beta]", "]"}], "0", RowBox[{"-", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, {"0", "1", "0"}, { RowBox[{"Sin", "[", "\[Beta]", "]"}], "0", RowBox[{"Cos", "[", "\[Beta]", "]"}]} }], ")"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ SubscriptBox["B", "ab"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[Alpha]", "]"}], RowBox[{"Sin", "[", "\[Alpha]", "]"}], "0"}, { RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], RowBox[{"Cos", "[", "\[Alpha]", "]"}], "0"}, {"0", "0", "1"} }], ")"}]}], ";"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["D", "ab"], "=", RowBox[{ SubscriptBox["B", "ab"], ".", SubscriptBox["A", "ab"]}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], RowBox[{"Sin", "[", "\[Alpha]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], RowBox[{"Cos", "[", "\[Alpha]", "]"}], RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, { RowBox[{"Sin", "[", "\[Beta]", "]"}], "0", RowBox[{"Cos", "[", "\[Beta]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5020401189837427`*^9, 3.502043641152199*^9, 3.5020437597259808`*^9, 3.502045165838406*^9, 3.502051847680586*^9, 3.5020520650530186`*^9, 3.5023556937276993`*^9, 3.502358320837961*^9, 3.5023583655325174`*^9, 3.5023594335076027`*^9, 3.5024387875154085`*^9, 3.5024388700611305`*^9, 3.502439085768468*^9, 3.502464984639905*^9, 3.502465046696454*^9, { 3.502465170890558*^9, 3.5024651965270243`*^9}, 3.502465260285671*^9, 3.5024657611503987`*^9, 3.5024660871667976`*^9, {3.5024665067840357`*^9, 3.502466528311248*^9}, 3.5024701142695847`*^9, 3.502470369230751*^9, 3.5024704169380093`*^9, 3.5024704486076827`*^9, 3.502470500704071*^9, 3.502470899907769*^9, 3.5024709550463686`*^9, 3.5024734101058173`*^9, 3.502473529992549*^9, 3.5024736329959717`*^9, 3.502473738908965*^9, 3.5024738581522446`*^9, 3.502473905109477*^9, 3.5024741431131268`*^9, 3.5024742478982325`*^9, 3.5024743139865465`*^9, 3.5024743799042645`*^9, 3.502474572901626*^9, 3.5024747426876593`*^9, 3.502474790311912*^9, 3.5024748266499233`*^9, 3.50247491445399*^9, 3.5024753938758364`*^9, 3.5024754878192015`*^9, 3.5024763242638936`*^9, 3.502476834688962*^9, 3.5024770071316648`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["B", "ab"], "=."}], ";", RowBox[{ SubscriptBox["A", "ab"], "=."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["D", "ab"], "=", RowBox[{"ReplaceAll", "[", RowBox[{ SubscriptBox["D", "ab"], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"\[Alpha]", "[", "t", "]"}]}], ",", " ", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"\[Beta]", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], ";"}]}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:043f\:0435\:0440\:0435\:0445\ \:043e\:0434\:0430 \:043c\:0435\:0436\:0434\:0443 \:0441\:0432\:044f\:0437\ \:0430\:043d\:043d\:043e\:0439 \:0438 \:043f\:043e\:043b\:0443\:0441\:0432\ \:044f\:0437\:0430\:043d\:043d\:043e\:0439 \:0421\:041a\ \>", "Subsection", CellChangeTimes->{{3.502040404533075*^9, 3.502040415409697*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["D", "be"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }], ")"}]}], ";"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0438\:0435 \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \:043f\:043e\:0441\ \:0442\:0443\:043f\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\:0442\ \:0440\:0430 \:043c\:0430\:0441\:0441 \:041b\:0410\ \>", "Subsection", CellChangeTimes->{{3.497028750771304*^9, 3.4970287702114162`*^9}, { 3.4976275278262453`*^9, 3.49762755832699*^9}, {3.502040286810342*^9, 3.5020402876923923`*^9}}], Cell["\<\ \:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \:0434\:0432\:0438\ \:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\:0442\:0440\:0430 \:043c\ \:0430\:0441\:0441 \:041b\:0410 \:043f\:043e\:043b\:0443\:0447\:0438\:043c \ \:043d\:0430 \:043e\:0441\:043d\:043e\:0432\:0430\:043d\:0438\:0438 \:0437\ \:0430\:043a\:043e\:043d\:0430 \:0438\:0437\:043c\:0435\:043d\:0435\:043d\ \:0438\:044f \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:0430 \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\:0442\ \:0440\:0430 \:043c\:0430\:0441\:0441:\ \>", "Text", CellChangeTimes->{{3.4970287996110973`*^9, 3.497028807421544*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"d", OverscriptBox["Q", "\[RightVector]"]}], "dt"], "=", RowBox[{ UnderscriptBox["\[CapitalSigma]", "i"], OverscriptBox[ SubscriptBox["F", "i"], "\[RightVector]"]}]}], ",", Cell[ ""]}], "\[IndentingNewLine]", RowBox[{ OverscriptBox["Q", "\[RightVector]"], "=", RowBox[{"m", OverscriptBox["V", "\[RightVector]"], RowBox[{Cell[""], "."}]}]}]}], "DisplayFormula", CellChangeTimes->{{3.4970288360761833`*^9, 3.4970288711681905`*^9}, { 3.4970289235171843`*^9, 3.497029176727667*^9}}], Cell[TextData[{ "\:041f\:0440\:043e\:0434\:0438\:0444\:0444\:0435\:0440\:0435\:043d\:0446\ \:0438\:0440\:0443\:0435\:043c ", Cell[BoxData[ FormBox[ OverscriptBox["V", "\[RightVector]"], TraditionalForm]]], " \:043f\:043e \:043f\:0440\:0430\:0432\:0438\:043b\:0430\:043c \:0434\:0438\ \:0444\:0444\:0435\:0440\:0435\:043d\:0446\:0438\:0440\:043e\:0432\:0430\:043d\ \:0438\:044f \:0432\:0435\:043a\:0442\:043e\:0440\:0430, \:0437\:0430\:043f\ \:0438\:0441\:0430\:043d\:043d\:043e\:0433\:043e \:0432 \:043f\:043e\:0434\ \:0432\:0438\:0436\:043d\:043e\:043c \:0431\:0430\:0437\:0438\:0441\:0435:" }], "Text", CellChangeTimes->{{3.497029879228848*^9, 3.4970299713371162`*^9}, { 3.4970300626133375`*^9, 3.497030080136339*^9}, {3.497030115523363*^9, 3.497030121444702*^9}}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"d", OverscriptBox["V", "\[RightVector]"]}], "dt"], "=", RowBox[{ FractionBox[ RowBox[{"d", OverscriptBox["V", "~"]}], "dt"], "+", RowBox[{ RowBox[{"(", RowBox[{ OverscriptBox["\[Omega]", "\[RightVector]"], "\[Cross]", OverscriptBox["V", "\[RightVector]"]}], ")"}], "."}]}]}]], "DisplayFormula", CellChangeTimes->{{3.4970301294291587`*^9, 3.4970301889245615`*^9}, { 3.4970303417083006`*^9, 3.497030344195443*^9}, {3.4970307313815885`*^9, 3.497030734154747*^9}}], Cell["\:0412\:043e\:0437\:0434\:0443\:0448\:043d\:0430\:044f \:0441\:043a\ \:043e\:0440\:043e\:0441\:0442\:044c:", "Text", CellChangeTimes->{{3.4976934595499587`*^9, 3.497693476897189*^9}, { 3.4976935847713766`*^9, 3.4976936323670597`*^9}, {3.5020405170845127`*^9, 3.502040528650174*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["V", "a"], "=", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.5020405338504715`*^9, 3.502040555703721*^9}}], Cell["\<\ \:0412\:044b\:0440\:0430\:0437\:0438\:043c \:0441\:043a\:043e\:0440\:043e\ \:0441\:0442\:044c \:0432 \:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\ \:0439 \:0421\:041a \:0447\:0435\:0440\:0435\:0437 \:0432\:043e\:0437\:0434\ \:0443\:0448\:043d\:0443\:044e:\ \>", "Text", CellChangeTimes->{{3.5020406283328753`*^9, 3.5020406489280534`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["V", "b"], "=", RowBox[{ SubscriptBox["D", "ab"], ".", SubscriptBox["V", "a"]}]}], "]"}]], "Input", CellChangeTimes->{{3.502040623619606*^9, 3.502040624776672*^9}, { 3.502040655424425*^9, 3.5020406844570856`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020406751365523`*^9, 3.5020406851691265`*^9}, 3.5020436412112026`*^9, 3.502043759797985*^9, 3.50204516590541*^9, 3.5020518477315884`*^9, 3.5020520651070213`*^9, 3.5023556938187046`*^9, 3.5023583208929644`*^9, 3.5023583655805206`*^9, 3.502359433548605*^9, 3.5024387875794125`*^9, 3.502438870159136*^9, 3.5024390859164762`*^9, 3.502464985063929*^9, 3.502465046764458*^9, {3.5024651709835634`*^9, 3.5024651966860332`*^9}, 3.50246526044368*^9, 3.502465761237404*^9, 3.502466087298803*^9, {3.50246650685604*^9, 3.5024665283892527`*^9}, 3.5024701143405886`*^9, 3.502470369315751*^9, 3.5024704170205107`*^9, 3.502470448687683*^9, 3.502470500784073*^9, 3.502470899982774*^9, 3.5024709551263733`*^9, 3.5024734102288246`*^9, 3.5024735300645533`*^9, 3.502473633162981*^9, 3.502473739081975*^9, 3.5024738582372494`*^9, 3.502473905191482*^9, 3.5024741432881365`*^9, 3.5024742480612416`*^9, 3.5024743140625505`*^9, 3.50247438000227*^9, 3.502474573018633*^9, 3.5024747427756643`*^9, 3.5024747904139175`*^9, 3.502474826715927*^9, 3.502474914555996*^9, 3.5024753939538364`*^9, 3.502475487990802*^9, 3.502476324404294*^9, 3.502476834766962*^9, 3.502477007178465*^9}] }, Open ]], Cell["\<\ \:0423\:0433\:043b\:043e\:0432\:0430\:044f \:0441\:043a\:043e\:0440\:043e\ \:0441\:0442\:044c \:0432\:0440\:0430\:0449\:0435\:043d\:0438\:044f \:041b\ \:0410 \:0432\:043e\:043a\:0440\:0443\:0433 \:0446\:0435\:043d\:0442\:0440\ \:0430 \:043c\:0430\:0441\:0441:\ \>", "Text", CellChangeTimes->{{3.4976268731147985`*^9, 3.4976269040075655`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "b"], "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.49762690933687*^9, 3.4976269463789887`*^9}, 3.4976270459936867`*^9, 3.4976273440647354`*^9, {3.4976327815997443`*^9, 3.4976327980326843`*^9}, {3.501821140959849*^9, 3.5018211563414755`*^9}}], Cell["\<\ \:0421\:0438\:043b\:0430 \:0442\:044f\:0436\:0435\:0441\:0442\:0438 \:0432 \ \:0431\:0430\:0437\:0438\:0441\:0435 \:043d\:043e\:0440\:043c\:0430\:043b\ \:044c\:043d\:043e\:0439 \:0441\:0438\:0441\:0442\:0435\:043c\:044b \:043a\ \:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442:\ \>", "Text", CellChangeTimes->{{3.4970292533660507`*^9, 3.497029278843508*^9}, { 3.5020408596081038`*^9, 3.5020408821943955`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["G", "g"], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "G"}], ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4970292967795343`*^9, 3.4970293377488775`*^9}, { 3.497627598640296*^9, 3.497627611898054*^9}, {3.4976311685684843`*^9, 3.4976311726597185`*^9}, {3.497633201285749*^9, 3.497633202625826*^9}, { 3.501903924590639*^9, 3.501903925546694*^9}}], Cell["\<\ \:0421\:0438\:043b\:0430 \:0442\:044f\:0433\:0438 \:0434\:0432\:0438\:0433\ \:0430\:0442\:0435\:043b\:044f \:0432 \:0431\:0430\:0437\:0438\:0441\:0435 \ \:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439 \:0441\:0438\:0441\ \:0442\:0435\:043c\:044b \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\ \:0442:\ \>", "Text", CellChangeTimes->{{3.497029378425204*^9, 3.4970293981673326`*^9}, { 3.497627775403406*^9, 3.497627796763628*^9}, {3.497627837603964*^9, 3.497627844363351*^9}, {3.497693726575624*^9, 3.497693731115232*^9}, { 3.49769376424969*^9, 3.4976938325310087`*^9}, {3.501903883295277*^9, 3.5019038940398912`*^9}, {3.502040912908152*^9, 3.5020409308991814`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["P", "b"], "=", RowBox[{"{", RowBox[{ RowBox[{"P", "*", RowBox[{"Cos", "[", SubscriptBox["\[Phi]", "p"], "]"}]}], ",", RowBox[{"P", "*", RowBox[{"Sin", "[", SubscriptBox["\[Phi]", "p"], "]"}]}], ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4970294238438015`*^9, 3.497029429704137*^9}, { 3.497083902452261*^9, 3.497083902530261*^9}, {3.497083934806717*^9, 3.4970839401419263`*^9}, {3.497084129713457*^9, 3.497084130134658*^9}, { 3.497084752747343*^9, 3.4970847529969435`*^9}, {3.497092540479322*^9, 3.497092583706997*^9}, {3.497627862205371*^9, 3.497627904508791*^9}, { 3.497631181478223*^9, 3.497631195159005*^9}, {3.497633206269034*^9, 3.497633207986132*^9}, {3.4976938374450173`*^9, 3.4976938570386515`*^9}, { 3.498284898781657*^9, 3.498284910103305*^9}, {3.4983014771816893`*^9, 3.498301509660946*^9}, {3.5019039025333776`*^9, 3.501903929206903*^9}}], Cell["\<\ \:0420\:0430\:0432\:043d\:043e\:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\ \:0449\:0430\:044f \:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\ \:0438\:0447\:0435\:0441\:043a\:0438\:0445 \:0441\:0438\:043b \:0432 \:0431\ \:0430\:0437\:0438\:0441\:0435 \:0441\:043a\:043e\:0440\:043e\:0441\:0442\ \:043d\:043e\:0439 \:0441\:0438\:0441\:0442\:0435\:043c\:044b:\ \>", "Text", CellChangeTimes->{{3.4970294452940283`*^9, 3.4970294558536325`*^9}, { 3.5020409548435507`*^9, 3.5020409653911543`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["R", "a"], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "X"}], ",", "Y", ",", "Z"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.497029496394951*^9, 3.4970295125338745`*^9}, 3.4970841562335033`*^9, {3.497084236292843*^9, 3.49708434377703*^9}, { 3.497084496438896*^9, 3.497084508747318*^9}, {3.497090509449381*^9, 3.4970905519750547`*^9}, {3.4970907736826415`*^9, 3.497090779298651*^9}, { 3.4970912194222183`*^9, 3.497091236317048*^9}, {3.497091431410988*^9, 3.4970914402874036`*^9}, {3.4970917241766987`*^9, 3.4970917763587894`*^9}, {3.497092473399205*^9, 3.4970925323205075`*^9}, { 3.4970925878098044`*^9, 3.4970925887458057`*^9}, {3.4976279702065487`*^9, 3.4976279939839087`*^9}, {3.49763119908823*^9, 3.4976312035014825`*^9}, { 3.4976332118373528`*^9, 3.497633213328438*^9}, {3.4983015215793667`*^9, 3.4983015255573735`*^9}, {3.5019039322580776`*^9, 3.501903932900114*^9}, { 3.50204643014472*^9, 3.5020464570422583`*^9}}], Cell["\<\ \:0417\:0430\:043f\:0438\:0448\:0435\:043c \:0443\:0440\:0430\:0432\:043d\ \:0435\:043d\:0438\:0435 \:0432 \:0441\:0432\:044f\:0437\:0430\:043d\:043d\ \:043e\:0439 \:0421\:041a, \:0430 \:0437\:0430\:0442\:0435\:043c \:0441\:043f\ \:0440\:043e\:0435\:043a\:0442\:0438\:0440\:0443\:0435\:043c \:0432 \:043f\ \:043e\:043b\:0443\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e:\ \>", "Text", CellChangeTimes->{{3.5020410119018145`*^9, 3.502041040650459*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tm", "=", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"m", "*", RowBox[{ SubscriptBox["D", "be"], ".", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["V", "b"], ",", "t"}], "]"}], "+", RowBox[{ SubscriptBox["\[Omega]", "b"], "\[Cross]", SubscriptBox["V", "b"]}]}], ")"}]}]}], "]"}], "]"}], "\[Equal]", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ SubscriptBox["D", "be"], ".", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["D", "gb"], ".", SubscriptBox["G", "g"]}], "+", RowBox[{ SubscriptBox["D", "ab"], ".", SubscriptBox["R", "a"]}], "+", SubscriptBox["P", "b"]}], ")"}]}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P", " ", RowBox[{"Cos", "[", SubscriptBox["\[Phi]", "p"], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"P", " ", RowBox[{"Sin", "[", SubscriptBox["\[Phi]", "p"], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}]}], "\[Rule]", RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", SubscriptBox["\[Phi]", "p"], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"Cos", "[", SubscriptBox["\[Phi]", "p"], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}]}], "\[Rule]", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}]}]}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"DYPD", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"tm", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"tm", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "tm", "]"}], ";"}]}], "Input", CellChangeTimes->{ 3.4969419547660527`*^9, {3.49694202772738*^9, 3.496942076430665*^9}, { 3.496942125991951*^9, 3.4969421617472134`*^9}, 3.496942321912693*^9, { 3.496942370303977*^9, 3.4969423915200143`*^9}, {3.496942525149847*^9, 3.49694260703439*^9}, {3.49694265868608*^9, 3.496942844856805*^9}, { 3.49694310019805*^9, 3.4969431443929267`*^9}, {3.4969438984524417`*^9, 3.4969439069544563`*^9}, {3.4969439494489307`*^9, 3.496944169768115*^9}, { 3.49694423594343*^9, 3.4969442895139236`*^9}, {3.496944553076383*^9, 3.4969445555099874`*^9}, {3.496944698811837*^9, 3.4969448188228464`*^9}, { 3.4969448875253663`*^9, 3.496944941704261*^9}, {3.496944977428323*^9, 3.4969453296301374`*^9}, {3.4969454796087985`*^9, 3.496945593832198*^9}, { 3.497029302590866*^9, 3.497029325947202*^9}, 3.4970294059857802`*^9, { 3.497029616673831*^9, 3.497029824031691*^9}, 3.4970298545114346`*^9, { 3.497030360773391*^9, 3.4970303640875807`*^9}, {3.497030741453164*^9, 3.4970307908939924`*^9}, {3.497030825541974*^9, 3.4970308591378956`*^9}, { 3.4970308926418123`*^9, 3.497030960278681*^9}, {3.497030992458521*^9, 3.4970310894470687`*^9}, {3.497031479912402*^9, 3.497031489076926*^9}, { 3.497083325641255*^9, 3.497083339213279*^9}, {3.4970834530934772`*^9, 3.4970834644034967`*^9}, {3.497084843695502*^9, 3.4970848519323163`*^9}, { 3.497084965516114*^9, 3.497084969572121*^9}, {3.497085025326618*^9, 3.497085048711059*^9}, {3.49708561129484*^9, 3.497085712773017*^9}, { 3.497085758387497*^9, 3.497085785609544*^9}, {3.4970858157331963`*^9, 3.4970859148401694`*^9}, {3.497086003198724*^9, 3.49708603553758*^9}, { 3.49708607027884*^9, 3.497086292579228*^9}, {3.4970864555527124`*^9, 3.4970864767843494`*^9}, {3.4970866812851057`*^9, 3.4970867240603805`*^9}, {3.4970867614224453`*^9, 3.497086771890064*^9}, { 3.4970871812503777`*^9, 3.497087204915619*^9}, {3.4970872498280973`*^9, 3.4970873223214235`*^9}, {3.4976281859958906`*^9, 3.4976282862576256`*^9}, {3.497628499251808*^9, 3.497628553251897*^9}, 3.4976285862737856`*^9, 3.49763092302944*^9, {3.497631038833064*^9, 3.4976310474925594`*^9}, {3.497631077700287*^9, 3.497631130132286*^9}, { 3.497631226226782*^9, 3.49763123457926*^9}, {3.497633265689433*^9, 3.49763327892719*^9}, {3.4976334845069485`*^9, 3.4976335174208307`*^9}, { 3.497634495591779*^9, 3.4976344959317985`*^9}, {3.5018263025888486`*^9, 3.501826315458871*^9}, {3.501826398404216*^9, 3.5018264223970575`*^9}, { 3.5020410723982744`*^9, 3.502041237823736*^9}, {3.502041268815509*^9, 3.5020413471699905`*^9}}], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"X", " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["\[Alpha]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"Z", " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"X", " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{ 3.50182642383226*^9, 3.501826499164791*^9, 3.501903367776791*^9, 3.501907369946702*^9, {3.502041178832362*^9, 3.5020412106591825`*^9}, 3.5020413494751225`*^9, 3.502043641713231*^9, 3.5020437603830185`*^9, 3.5020451664294395`*^9, 3.5020518482416177`*^9, 3.5020520656110506`*^9, 3.502355694457741*^9, 3.502358321280987*^9, 3.5023583659435415`*^9, 3.5023594338866243`*^9, 3.502438788317455*^9, 3.5024388706501637`*^9, 3.502439086739524*^9, 3.502464986857032*^9, 3.5024650473784933`*^9, { 3.5024651716135993`*^9, 3.5024651975340815`*^9}, 3.502465261196723*^9, 3.5024657619234433`*^9, 3.5024660879948425`*^9, {3.5024665075270786`*^9, 3.502466529029289*^9}, 3.5024701149606237`*^9, 3.502470369960753*^9, 3.502470417669527*^9, 3.5024704493176837`*^9, 3.5024705014366026`*^9, 3.5024709006138077`*^9, 3.502470955814012*^9, 3.5024734108716583`*^9, 3.5024735306935863`*^9, 3.502473633949026*^9, 3.502473739808014*^9, 3.5024738587812777`*^9, 3.5024739057275124`*^9, 3.5024741440141783`*^9, 3.5024742487962837`*^9, 3.502474314696587*^9, 3.5024743806063023`*^9, 3.502474573469659*^9, 3.5024747432546916`*^9, 3.502474790926947*^9, 3.5024748273269625`*^9, 3.502474915192032*^9, 3.5024753944842377`*^9, 3.502475489332404*^9, 3.5024763253558955`*^9, 3.5024768353753633`*^9, 3.502477007724466*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:0412\:0430\:0440\:044c\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \:043d\:043e\:0440\ \:043c\:0430\:043b\:044c\:043d\:044b\:0445 \:0441\:0438\:043b\ \>", "Subsection", CellChangeTimes->{{3.5020414164579535`*^9, 3.5020414241833954`*^9}, { 3.502041489926156*^9, 3.5020415213969555`*^9}, {3.5020416168654165`*^9, 3.50204162462386*^9}, {3.5024391667430997`*^9, 3.5024391716393795`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UKS", "=", RowBox[{"DYPD", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5020414327468853`*^9, 3.5020414406883397`*^9}, { 3.502358306490141*^9, 3.5023583401270647`*^9}, {3.502438782706134*^9, 3.502438783224163*^9}, {3.502438866526928*^9, 3.50243886708696*^9}, 3.5024657582832346`*^9, 3.5024660836416025`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["\[Alpha]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.5020414414293823`*^9, 3.5020436417582335`*^9, 3.502043760429021*^9, 3.502045166473442*^9, 3.50205184828162*^9, 3.5020520656560526`*^9, 3.5023556945237446`*^9, {3.5023583101293488`*^9, 3.502358365980543*^9}, 3.5023594339156256`*^9, 3.50243878841046*^9, 3.5024388706921663`*^9, 3.502439086832529*^9, 3.5024649870180407`*^9, 3.502465047457498*^9, { 3.502465171704604*^9, 3.502465197627087*^9}, 3.5024652612907286`*^9, 3.502465761987444*^9, 3.5024660881298504`*^9, {3.502466507659086*^9, 3.5024665291602964`*^9}, 3.50247011507763*^9, 3.5024703700977554`*^9, 3.5024704178085346`*^9, 3.5024704494576836`*^9, 3.5024705015776105`*^9, 3.5024709007538157`*^9, 3.5024709560532236`*^9, 3.502473411006666*^9, 3.5024735308365946`*^9, 3.502473634104035*^9, 3.502473739962023*^9, 3.5024738588902836`*^9, 3.502473905768515*^9, 3.5024741441541862`*^9, 3.5024742489362917`*^9, 3.50247431475259*^9, 3.50247438075331*^9, 3.5024745735256615`*^9, 3.502474743296694*^9, 3.502474790965949*^9, 3.502474827376965*^9, 3.5024749153240395`*^9, 3.5024753945154376`*^9, 3.5024754896600046`*^9, 3.5024763254338956`*^9, 3.502476835500163*^9, 3.502477007755666*^9}] }, Open ]], Cell[TextData[{ "\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 \:043e\:0441\:043d\:043e\ \:0432\:043d\:043e\:0435 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:0435 - \ \:041f\:0413\:041f:\n", Cell[BoxData[ FormBox[ SubscriptBox["V", "0"], TraditionalForm]]], "=const; ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "x0"], "=", "0"}], ";"}], " "}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "y0"], "=", "0"}], ";"}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z0"], "=", "0"}], ";"}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "0"], "=", "0"}], ";", " ", RowBox[{ SubscriptBox["\[Gamma]", "0"], "=", "0"}], ";", " ", RowBox[{ SubscriptBox["Z", "0"], "=", "0"}], ";"}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.50204163563449*^9, 3.502041665699209*^9}, { 3.502042536667026*^9, 3.5020425680468206`*^9}, {3.502042621772894*^9, 3.5020427591487513`*^9}, {3.5020429226361017`*^9, 3.5020429420322113`*^9}, {3.5020431119769316`*^9, 3.502043113989047*^9}, 3.5020438668651085`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOD", "=", RowBox[{"UKS", "/.", RowBox[{"{", RowBox[{ RowBox[{"V", "\[Rule]", SubscriptBox["V", "0"]}], ",", RowBox[{"\[Beta]", "\[Rule]", SubscriptBox["\[Beta]", "0"]}], ",", RowBox[{"\[Alpha]", "\[Rule]", SubscriptBox["\[Alpha]", "0"]}], ",", RowBox[{"\[Gamma]", "\[Rule]", SubscriptBox["\[Gamma]", "0"]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", SubscriptBox["\[CurlyTheta]", "0"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "x"], "->", SubscriptBox["\[Omega]", "x0"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "y"], "->", SubscriptBox["\[Omega]", "y0"]}], ",", RowBox[{"P", "\[Rule]", SubscriptBox["P", "0"]}], ",", RowBox[{"X", "\[Rule]", SubscriptBox["X", "0"]}], ",", RowBox[{"Z", "\[Rule]", SubscriptBox["Z", "0"]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.502041670675494*^9, 3.502041676669837*^9}, 3.5020424718213167`*^9, {3.5020427916396093`*^9, 3.5020429026939616`*^9}, { 3.5020429619263496`*^9, 3.502042989432923*^9}, {3.502043028464155*^9, 3.502043032103363*^9}, {3.502043676030194*^9, 3.502043678307324*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x0"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y0"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Gamma]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "0"]}]}]}]], "Output", CellChangeTimes->{ 3.5020465041179514`*^9, 3.502051848324622*^9, 3.5020520657110558`*^9, 3.502355694558747*^9, 3.50235832133899*^9, 3.5023583660215454`*^9, 3.5023594339436274`*^9, 3.502438788466463*^9, 3.5024388707331686`*^9, 3.5024390869005327`*^9, 3.5024649871100464`*^9, 3.5024650475075006`*^9, { 3.502465171773608*^9, 3.5024651976870904`*^9}, 3.5024652613517323`*^9, 3.502465762037444*^9, 3.5024660882538576`*^9, {3.5024665077180896`*^9, 3.5024665292142997`*^9}, 3.5024701151286335`*^9, 3.5024703701527557`*^9, 3.5024704178735385`*^9, 3.502470449517684*^9, 3.502470501644614*^9, 3.502470900818819*^9, 3.502470956177231*^9, 3.5024734110596695`*^9, 3.502473530886597*^9, 3.5024736341610384`*^9, 3.502473740034027*^9, 3.502473858930286*^9, 3.5024739058105173`*^9, 3.502474144212189*^9, 3.5024742489932947`*^9, 3.502474314901599*^9, 3.5024743807913127`*^9, 3.5024745735656643`*^9, 3.5024747433626976`*^9, 3.5024747910919566`*^9, 3.502474827500972*^9, 3.5024749153760424`*^9, 3.5024753945466375`*^9, 3.502475489831605*^9, 3.5024763254806957`*^9, 3.5024768355625634`*^9, 3.502477007786866*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOD", "=", RowBox[{ RowBox[{"IOD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["V", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Gamma]", "0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "x0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "y0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["Z", "0"], "\[Rule]", "0"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}]}], "\[Rule]", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "]"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.502043041623908*^9, 3.502043192477536*^9}, 3.5020436370009613`*^9, {3.5020436846446867`*^9, 3.502043688830926*^9}, { 3.502044124192827*^9, 3.5020441942798357`*^9}, {3.5020442351871758`*^9, 3.5020442736463757`*^9}, {3.502046478278473*^9, 3.502046478812504*^9}, { 3.502474562961882*^9, 3.502474563518911*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "0"]}]}]}]], "Output", CellChangeTimes->{ 3.5020442776056023`*^9, 3.5020451667034554`*^9, 3.5020465053450212`*^9, 3.502051848371625*^9, 3.502052065757059*^9, 3.5023556945917487`*^9, 3.502358321373992*^9, 3.502358366061548*^9, 3.5023594339706287`*^9, 3.502438788523466*^9, 3.502438870777171*^9, 3.5024390869545355`*^9, 3.5024649872020516`*^9, 3.5024650475585036`*^9, {3.5024651718436127`*^9, 3.5024651977520943`*^9}, 3.5024652614177356`*^9, 3.502465762077444*^9, 3.502466088356863*^9, {3.5024665077710924`*^9, 3.5024665292673025`*^9}, 3.502470115173636*^9, 3.5024703702077556`*^9, 3.5024704179305415`*^9, 3.502470449577684*^9, 3.5024705017026176`*^9, 3.502470900873822*^9, 3.5024709562912374`*^9, 3.502473411117673*^9, 3.5024735309365997`*^9, 3.502473634234042*^9, 3.5024737400990305`*^9, 3.5024738589692883`*^9, 3.502473905922521*^9, 3.5024741442711926`*^9, 3.5024742490452976`*^9, 3.5024743149596024`*^9, 3.5024743808293147`*^9, 3.5024745736066666`*^9, 3.5024747434637036`*^9, 3.502474791138959*^9, 3.5024748275459747`*^9, 3.5024749154480467`*^9, 3.5024753945934377`*^9, 3.502475489972005*^9, 3.502476325511896*^9, 3.5024768356249638`*^9, 3.5024770078180656`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOD", "=", RowBox[{"IOD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "\[Rule]", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], "\[Rule]", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], ",", "t"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}]}], "\[Rule]", RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "]"}]}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{ 3.5020435184731817`*^9, {3.5020436128605804`*^9, 3.502043631074622*^9}, { 3.5020437016426587`*^9, 3.5020437134263325`*^9}, {3.5020437699435654`*^9, 3.502043782347275*^9}, {3.5024698770683436`*^9, 3.50246990136563*^9}, { 3.5024700497701187`*^9, 3.5024700898573303`*^9}, {3.502470146766013*^9, 3.502470160669774*^9}, {3.5024703037797427`*^9, 3.5024703617004776`*^9}, { 3.5024704112597647`*^9, 3.5024704931557217`*^9}, {3.5024708630455775`*^9, 3.5024708903012476`*^9}, {3.502470939467123*^9, 3.5024709503605146`*^9}, 3.5024711374509926`*^9, 3.5024734925846553`*^9, 3.502474566303464*^9, 3.502474734976224*^9, 3.5024747860666723`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Theta]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "0"]}]}]}]], "Output", CellChangeTimes->{{3.5024704743211107`*^9, 3.502470501755621*^9}, 3.502470900924825*^9, 3.5024709563902435`*^9, 3.502473411184676*^9, 3.502473530987603*^9, 3.5024736342900457`*^9, 3.502473740174035*^9, 3.502473859010291*^9, 3.5024739059655237`*^9, 3.502474144331196*^9, 3.5024742491443033`*^9, 3.5024743150176053`*^9, 3.5024743808683167`*^9, 3.5024745736446686`*^9, 3.5024747435127068`*^9, 3.5024747911969624`*^9, 3.5024748275939775`*^9, 3.5024749155040503`*^9, 3.5024753946870375`*^9, 3.5024754900968056`*^9, 3.502476325558696*^9, 3.5024768356873636`*^9, 3.502477007849266*^9}] }, Open ]], Cell["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 \:0432\:043e\:0437\ \:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435 \:0434\:0432\:0438\:0436\ \:0435\:043d\:0438\:0435:", "Text", CellChangeTimes->{{3.502043888500346*^9, 3.5020439198711405`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"UKS", "/.", RowBox[{"{", RowBox[{ RowBox[{"V", "\[Rule]", SubscriptBox["V", "1"]}], ",", RowBox[{"\[Beta]", "\[Rule]", SubscriptBox["\[Beta]", "1"]}], ",", RowBox[{"\[Alpha]", "\[Rule]", SubscriptBox["\[Alpha]", "1"]}], ",", RowBox[{"\[Gamma]", "\[Rule]", SubscriptBox["\[Gamma]", "1"]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", SubscriptBox["\[CurlyTheta]", "1"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "x"], "->", SubscriptBox["\[Omega]", "x1"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "y"], "->", SubscriptBox["\[Omega]", "y1"]}], ",", RowBox[{"P", "\[Rule]", SubscriptBox["P", "1"]}], ",", RowBox[{"X", "\[Rule]", SubscriptBox["X", "1"]}], ",", RowBox[{"Z", "\[Rule]", SubscriptBox["Z", "1"]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020439246424136`*^9, 3.502043970462034*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Beta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Gamma]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{ 3.5020462718926687`*^9, 3.502046508657211*^9, 3.502046569555694*^9, 3.502050421400007*^9, 3.5020504539008656`*^9, 3.50205184845763*^9, 3.5020520659900723`*^9, 3.5023556946617527`*^9, 3.502358321443996*^9, 3.5023583661455526`*^9, 3.502359434024632*^9, 3.5024387886444736`*^9, 3.5024388708581758`*^9, 3.502439087060542*^9, 3.502464987384062*^9, 3.5024650476585093`*^9, {3.502465172007622*^9, 3.5024651978691006`*^9}, 3.502465261526742*^9, 3.502465762157444*^9, 3.5024660884808702`*^9, { 3.5024665078710985`*^9, 3.5024665293743086`*^9}, 3.502470115243638*^9, 3.502470370312756*^9, 3.5024704180355473`*^9, 3.5024704496576843`*^9, 3.502470501814624*^9, 3.5024709009768286`*^9, 3.502470956493249*^9, 3.50247341124368*^9, 3.502473531044606*^9, 3.5024736343610497`*^9, 3.5024737402440386`*^9, 3.502473859050293*^9, 3.502473906007526*^9, 3.5024741443971996`*^9, 3.502474249243309*^9, 3.5024743150736084`*^9, 3.502474380909319*^9, 3.5024745736776686`*^9, 3.50247474358171*^9, 3.5024747912509656`*^9, 3.5024748276399803`*^9, 3.502474915558053*^9, 3.502475394718238*^9, 3.5024754902216053`*^9, 3.502476325605496*^9, 3.5024768357341633`*^9, 3.502477007880466*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["V", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"(", "\[CapitalDelta]V", ")"}], "'"}], "[", "t", "]"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "1"], "\[Rule]", "\[CapitalDelta]\[Beta]"}], ",", RowBox[{ SubscriptBox["\[Gamma]", "1"], "\[Rule]", "\[CapitalDelta]\[Gamma]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.502046213210312*^9, 3.5020462210327597`*^9}, { 3.5020462674904165`*^9, 3.502046268398469*^9}, {3.502046387954307*^9, 3.5020463885993443`*^9}, {3.502046514080521*^9, 3.5020465668845415`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{{3.5020462545646777`*^9, 3.502046275803892*^9}, 3.5020465159696293`*^9, 3.5020465705647516`*^9, 3.5020504223140593`*^9, 3.502050454915924*^9, 3.50205184863764*^9, 3.5020520660410748`*^9, 3.502355694700755*^9, 3.502358321480998*^9, 3.502358366186555*^9, 3.5023594340526333`*^9, 3.502438788687476*^9, 3.5024388709041786`*^9, 3.5024390871255455`*^9, 3.5024649874830675`*^9, 3.502465047707512*^9, { 3.5024651721066275`*^9, 3.5024651979661064`*^9}, 3.5024652615937457`*^9, 3.5024657621974444`*^9, 3.502466088545874*^9, {3.502466507922101*^9, 3.5024665294293118`*^9}, 3.5024701152916403`*^9, 3.502470370367756*^9, 3.502470418089551*^9, 3.5024704497076845`*^9, 3.5024705018706274`*^9, 3.5024709010308313`*^9, 3.50247095668326*^9, 3.502473411298683*^9, 3.502473531096609*^9, 3.502473634425053*^9, 3.5024737403150425`*^9, 3.5024738590892954`*^9, 3.502473906045528*^9, 3.5024741444592032`*^9, 3.502474249341315*^9, 3.5024743151286116`*^9, 3.5024743810223255`*^9, 3.502474573724671*^9, 3.5024747436407137`*^9, 3.5024747913689685`*^9, 3.502474827686983*^9, 3.5024749156220565`*^9, 3.5024753947494383`*^9, 3.502475490362006*^9, 3.502476325636696*^9, 3.502476835780964*^9, 3.502477007911666*^9}] }, Open ]], Cell["\<\ \:041f\:0440\:0435\:043d\:0435\:0431\:0440\:0435\:0436\:0435\:043c \:0432\ \:0442\:043e\:0440\:044b\:043c \:043f\:043e\:0440\:044f\:0434\:043a\:043e\ \:043c \:043c\:0430\:043b\:043e\:0441\:0442\:0438:\ \>", "Text", CellChangeTimes->{3.5020463136230555`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{ RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Gamma]", "[", "t", "]"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], "->", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "1"], "[", "t", "]"}], ",", "t"}], "]"}]}]}], "}"}]}], " ", "/.", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}]}], "->", RowBox[{ RowBox[{"-", "G"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "]"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020463202334337`*^9, 3.502046357551568*^9}, { 3.5024734482217607`*^9, 3.5024734506128974`*^9}, 3.502473526323339*^9, 3.5024735752190804`*^9, {3.5024738273127346`*^9, 3.5024738510570574`*^9}, { 3.50247389160672*^9, 3.5024738985345097`*^9}, 3.502474373837524*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[CapitalDelta]\[Theta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Theta]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{ 3.5020463587486362`*^9, 3.5020465759210577`*^9, 3.5020504247531986`*^9, 3.502050457623079*^9, 3.5020518486866426`*^9, 3.5020520660860777`*^9, 3.502355694735757*^9, 3.502358321517*^9, 3.502358366227557*^9, 3.502359434078635*^9, 3.5024387887294784`*^9, 3.502438870983183*^9, 3.502439087181549*^9, 3.502464987597074*^9, 3.502465047760515*^9, { 3.502465172205633*^9, 3.5024651980671124`*^9}, 3.5024652616597495`*^9, 3.5024657622374444`*^9, 3.5024660886098776`*^9, {3.502466507977104*^9, 3.5024665294813147`*^9}, 3.5024701153436437`*^9, 3.502470370422756*^9, 3.502470418142554*^9, 3.502470449757684*^9, 3.502470501928631*^9, 3.5024709010838346`*^9, 3.5024709567822657`*^9, 3.502473411359687*^9, 3.502473531146612*^9, 3.5024736344890566`*^9, 3.5024737403780465`*^9, 3.5024738591282973`*^9, 3.50247390608753*^9, 3.502474144533208*^9, 3.5024742494403205`*^9, 3.502474315184615*^9, 3.5024743810693283`*^9, 3.5024745738296766`*^9, 3.502474743699717*^9, 3.502474791478975*^9, 3.5024748277329855`*^9, 3.5024749156780596`*^9, 3.5024753947806377`*^9, 3.5024754906896067`*^9, 3.5024763256678963`*^9, 3.502476835843364*^9, 3.502477008005266*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{ RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}]}], "->", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "\[Rule]", RowBox[{ SubscriptBox["\[Theta]", "1"], "[", "t", "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020465893548265`*^9, 3.5020466507403374`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[CapitalDelta]\[Theta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Theta]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Theta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{ 3.502046651632388*^9, 3.50205042583226*^9, 3.502050460490243*^9, 3.502051848740646*^9, 3.50205206613008*^9, 3.5023556947727585`*^9, 3.502358321585004*^9, 3.5023583662645597`*^9, 3.5023594341056366`*^9, 3.502438788775481*^9, 3.5024388710271854`*^9, 3.502439087239552*^9, 3.50246498770508*^9, 3.5024650478115177`*^9, {3.502465172304639*^9, 3.5024651981731186`*^9}, 3.502465261730754*^9, 3.502465762287444*^9, 3.5024660886738815`*^9, {3.5024665080261073`*^9, 3.502466529534318*^9}, 3.5024701153876457`*^9, 3.5024703704827557`*^9, 3.5024704181995573`*^9, 3.5024704498076844`*^9, 3.5024705019866343`*^9, 3.5024709011398373`*^9, 3.502470956863869*^9, 3.5024734114156895`*^9, 3.5024735312026153`*^9, 3.5024736345690613`*^9, 3.5024737404450502`*^9, 3.5024738591672993`*^9, 3.502473906127533*^9, 3.5024741445942106`*^9, 3.5024742495533266`*^9, 3.502474315238618*^9, 3.502474381112331*^9, 3.5024745738726797`*^9, 3.5024747437567205`*^9, 3.502474791598982*^9, 3.502474827781988*^9, 3.5024749157420635`*^9, 3.5024753948274384`*^9, 3.5024754907520065`*^9, 3.502476325714696*^9, 3.502476835905764*^9, 3.5024770080364666`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "1"], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "+", RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}]}]}], ",", RowBox[{ SubscriptBox["P", "1"], "\[Rule]", RowBox[{ SubscriptBox["P", "0"], "+", "\[CapitalDelta]P"}]}], ",", RowBox[{ SubscriptBox["X", "1"], "\[Rule]", RowBox[{ SubscriptBox["X", "0"], "+", "\[CapitalDelta]X"}]}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[CapitalDelta]\[Theta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Theta]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], "\[Rule]", "0"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020475020160275`*^9, 3.502047536132979*^9}, { 3.5020478049463544`*^9, 3.5020478232344007`*^9}, {3.5024735884898396`*^9, 3.502473625594548*^9}, {3.502473692352111*^9, 3.502473735081749*^9}, 3.5024743103213367`*^9}], Cell[BoxData[ RowBox[{"0", "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{"\[CapitalDelta]P", "+", SubscriptBox["P", "0"]}], ")"}]}]}]}]], "Output", CellChangeTimes->{ 3.502047536452997*^9, {3.502047811359721*^9, 3.5020478246634817`*^9}, { 3.5020504155536723`*^9, 3.502050427349347*^9}, 3.5020504620633326`*^9, 3.5020518487866488`*^9, 3.5020520661710825`*^9, 3.5023556948087606`*^9, 3.502358321622006*^9, 3.502358366306562*^9, 3.502359434131638*^9, 3.5024387888194838`*^9, 3.502438871076188*^9, 3.5024390873055563`*^9, 3.5024649878140864`*^9, 3.502465047862521*^9, {3.502465172402644*^9, 3.502465198292125*^9}, 3.502465261792757*^9, 3.502465762327444*^9, 3.502466088741885*^9, {3.5024665080781097`*^9, 3.502466529587321*^9}, 3.5024701154326487`*^9, 3.502470370537756*^9, 3.5024704182555604`*^9, 3.502470449857684*^9, 3.5024705020416374`*^9, 3.502470901193841*^9, 3.5024709570072737`*^9, 3.5024734114706917`*^9, 3.5024735312536182`*^9, 3.5024736346530666`*^9, 3.502473740513054*^9, 3.502473859205302*^9, 3.502473906166535*^9, 3.5024741446662135`*^9, 3.5024742496643333`*^9, 3.502474315292621*^9, 3.502474381153333*^9, 3.5024745739386835`*^9, 3.5024747438087234`*^9, 3.502474791710988*^9, 3.5024748278349915`*^9, 3.5024749157940664`*^9, 3.502475394858638*^9, 3.502475490814407*^9, 3.5024763257458963`*^9, 3.502476835999364*^9, 3.502477008067666*^9}] }, Open ]], Cell["\<\ \:0420\:0430\:0437\:043b\:043e\:0436\:0438\:043c \:0444\:0443\:043d\:043a\ \:0446\:0438\:0438 \:0432 \:0440\:044f\:0434 \:0422\:0435\:0439\:043b\:043e\ \:0440\:0430, \:043e\:0441\:0442\:0430\:0432\:0438\:0432 \:0447\:043b\:0435\ \:043d\:044b \:043f\:043e\:0440\:044f\:0434\:043a\:0430 \:043c\:0430\:043b\ \:043e\:0441\:0442\:0438 \:043d\:0435 \:0432\:044b\:0448\:0435 \:043f\:0435\ \:0440\:0432\:043e\:0439:\ \>", "Text", CellChangeTimes->{{3.5020475451604953`*^9, 3.5020475715200033`*^9}, { 3.502047646517293*^9, 3.5020476609701195`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Column", "[", RowBox[{"serT", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]X", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"X", "[", "V", "]"}], ",", "V"}], "]"}], " ", "\[CapitalDelta]V"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"X", "[", "\[Alpha]", "]"}], ",", "\[Alpha]"}], "]"}], " ", "\[CapitalDelta]\[Alpha]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]P", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "V", "]"}], ",", "V"}], "]"}], " ", "\[CapitalDelta]V"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}], ",", SubscriptBox["\[Delta]", "\:0441\:0433"]}], "]"}], " ", SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"]}]}]}]}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.5020475893600235`*^9, 3.5020476299773464`*^9}, { 3.502047678179104*^9, 3.5020477241607337`*^9}, {3.5020491864283705`*^9, 3.502049205002433*^9}, {3.5020492537442207`*^9, 3.50204925915053*^9}, { 3.5020492918494005`*^9, 3.5020494351905985`*^9}, {3.50204954833007*^9, 3.502049581438964*^9}, {3.5020496260995183`*^9, 3.5020497749050293`*^9}, { 3.5020500803154984`*^9, 3.5020501643133025`*^9}, {3.5020502423317647`*^9, 3.502050244534891*^9}, {3.5020504047650557`*^9, 3.5020504106223907`*^9}, 3.5020504449413533`*^9, {3.5020518385480633`*^9, 3.502051845351452*^9}, { 3.5020520250887327`*^9, 3.5020520556514807`*^9}, {3.502439038856785*^9, 3.5024390627091494`*^9}, {3.502464958311399*^9, 3.502464977441493*^9}, { 3.502465034289745*^9, 3.5024650431052485`*^9}, {3.502466483145712*^9, 3.502466491454178*^9}, {3.502474364654999*^9, 3.5024743673151507`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Column", "[", RowBox[{"serT", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]P", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "V", "]"}], ",", "V"}], "]"}], " ", "\[CapitalDelta]V"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}], ",", SubscriptBox["\[Delta]", "\:0441\:0433"]}], "]"}], " ", SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"]}]}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020475893600235`*^9, 3.5020476299773464`*^9}, { 3.502047678179104*^9, 3.5020477241607337`*^9}, {3.5020491864283705`*^9, 3.502049205002433*^9}, {3.5020492537442207`*^9, 3.50204925915053*^9}, { 3.5020492918494005`*^9, 3.5020494351905985`*^9}, {3.50204954833007*^9, 3.502049581438964*^9}, {3.5020496260995183`*^9, 3.5020497749050293`*^9}, { 3.5020500803154984`*^9, 3.5020501643133025`*^9}, {3.5020502423317647`*^9, 3.502050244534891*^9}, {3.5020504047650557`*^9, 3.5020504106223907`*^9}, 3.5020504449413533`*^9, {3.5020518385480633`*^9, 3.502051845351452*^9}, { 3.5020520250887327`*^9, 3.5020520556514807`*^9}, {3.502439038856785*^9, 3.5024390627091494`*^9}, {3.502464958311399*^9, 3.502464977441493*^9}, { 3.502465034289745*^9, 3.5024650431052485`*^9}, {3.502466483145712*^9, 3.5024665200887833`*^9}, {3.502473786481429*^9, 3.502473801596484*^9}, { 3.5024741037617073`*^9, 3.5024741331049695`*^9}}], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}]}]}]}, { RowBox[{"\[CapitalDelta]P", "\[Rule]", RowBox[{ RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{ SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{{3.502466508162115*^9, 3.502466529665325*^9}, 3.5024701155026526`*^9, 3.50247037064176*^9, 3.5024704183445654`*^9, 3.5024704499476843`*^9, 3.502470502106638*^9, 3.5024709013178453`*^9, 3.5024709570892787`*^9, 3.5024734115506954`*^9, 3.502473531333623*^9, 3.502473634735071*^9, 3.502473740604059*^9, 3.502473859264305*^9, 3.5024739062355385`*^9, 3.5024741447492185`*^9, 3.5024742498833456`*^9, 3.5024743153936267`*^9, 3.502474381224337*^9, 3.5024745740056868`*^9, 3.502474743876727*^9, 3.50247479191*^9, 3.5024748279139957`*^9, 3.5024749158840714`*^9, 3.502475394921038*^9, 3.5024754908924065`*^9, 3.502476325808296*^9, 3.5024768361709642`*^9, 3.5024770081144667`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"IVD", "/.", "serT"}]}]], "Input", CellChangeTimes->{{3.502050308608556*^9, 3.5020503172580504`*^9}}], Cell[BoxData[ RowBox[{"0", "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["P", "0"], "+", RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{ SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{ 3.5020503182271056`*^9, {3.5020504370239005`*^9, 3.5020504664725847`*^9}, 3.5020518488806543`*^9, 3.502052066265088*^9, 3.5023556949907713`*^9, 3.5023583217100115`*^9, 3.502358366429569*^9, 3.5023594341926413`*^9, 3.5024387890064945`*^9, 3.5024388711691933`*^9, 3.5024390874245625`*^9, 3.5024649881221037`*^9, 3.5024650479825277`*^9, {3.502465172654659*^9, 3.5024651985451393`*^9}, 3.502465261937765*^9, 3.5024657624174447`*^9, 3.502466088877886*^9, {3.502466508216118*^9, 3.502466529716328*^9}, 3.5024701155516553`*^9, 3.5024703706977634`*^9, 3.5024704183965683`*^9, 3.5024704499976845`*^9, 3.502470502146638*^9, 3.5024709013748484`*^9, 3.502470957138282*^9, 3.502473411615699*^9, 3.5024735313836255`*^9, 3.5024736347950745`*^9, 3.5024737406660633`*^9, 3.5024738593033075`*^9, 3.5024739062755413`*^9, 3.502474144817222*^9, 3.502474250039355*^9, 3.5024743154486303`*^9, 3.5024743812623396`*^9, 3.5024745740466895`*^9, 3.5024747439207296`*^9, 3.502474792017006*^9, 3.5024748279619985`*^9, 3.5024749159390745`*^9, 3.5024753949678383`*^9, 3.502475490954807*^9, 3.5024763258550963`*^9, 3.5024768362645645`*^9, 3.5024770081612663`*^9}] }, Open ]], Cell["\:0412\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435 \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:0435:", "Text", CellChangeTimes->{{3.502044342384307*^9, 3.502044351137808*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VD", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"IVD", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"IOD", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"IVD", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"IOD", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]P", " ", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["P", "0"], " ", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], " ", "\[CapitalDelta]V"}], "\[Rule]", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "\[CapitalDelta]V"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], " ", SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"]}], "\[Rule]", "0"}]}], "}"}]}], "]"}]}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}]}], "+", RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "]"}]}], "\[Rule]", "0"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.502044337307017*^9, 3.5020444138843966`*^9}, { 3.502050343849571*^9, 3.502050348846857*^9}, {3.5020507229142523`*^9, 3.5020507264384537`*^9}, {3.5020517659099083`*^9, 3.5020518094173965`*^9}, { 3.5020518644665456`*^9, 3.5020518811955023`*^9}, {3.5020519236999335`*^9, 3.502051939743851*^9}, {3.502052000402321*^9, 3.502052010794915*^9}, { 3.5020520982889194`*^9, 3.502052210140317*^9}, {3.5024742354133215`*^9, 3.5024742381286736`*^9}, {3.5024742944848385`*^9, 3.50247429504087*^9}, { 3.5024748080822988`*^9, 3.5024748234997435`*^9}, {3.5024748714155855`*^9, 3.502474872062622*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Theta]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{ SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.5024749181512012`*^9, 3.5024753963874407`*^9, 3.502475494293213*^9, 3.502476327399499*^9, 3.502476838495369*^9, 3.5024770096432695`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:041b\:0438\:043d\:0435\:0430\:0440\:0438\:0437\:043e\:0432\:0430\:043d\ \:043d\:043e\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", \ "Subsection", CellChangeTimes->{{3.5020522572120094`*^9, 3.50205227051077*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LK", "=", RowBox[{ RowBox[{ RowBox[{"-", "\[CapitalDelta]\[CurlyTheta]"}], "+", RowBox[{ SubscriptBox["c", "4"], " ", "\[CapitalDelta]\[Alpha]"}], "+", RowBox[{ SubscriptBox["e", "2"], " ", "\[CapitalDelta]V"}], "+", RowBox[{ SubscriptBox["c", "10"], " ", "\[CapitalDelta]\[CurlyTheta]"}], "+", RowBox[{ SubscriptBox["c", "9"], " ", SubscriptBox["\[CapitalDelta]\[Delta]", "\:0432"]}], "+", RowBox[{ SubscriptBox["r", "2"], " ", SubscriptBox["\[Delta]", "\:0441\:0433"]}]}], "\[Equal]", "0"}]}], ";"}]], "Input", CellChangeTimes->{{3.502052427048723*^9, 3.5020524914434066`*^9}, { 3.502052527295457*^9, 3.502052534831888*^9}, {3.5020525871118784`*^9, 3.5020526017507157`*^9}, 3.5024624564463005`*^9, {3.5024629746389394`*^9, 3.5024630298490973`*^9}, {3.5024635804845915`*^9, 3.502463610082285*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:0410\:043d\:0430\:043b\:0438\:0437 \:0443\:0441\:0442\:043e\:0439\:0447\ \:0438\:0432\:043e\:0441\:0442\:0438 \:043f\:0440\:043e\:0434\:043e\:043b\ \:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\ \:044f\ \>", "Subsection", CellChangeTimes->{{3.5020536829435563`*^9, 3.5020536900079603`*^9}, { 3.5020807394941025`*^9, 3.502080781532507*^9}}], Cell[TextData[{ "\:041a\:0440\:0438\:0442\:0435\:0440\:0438\:0435\:043c \:0434\:043e\:043f\ \:0443\:0441\:0442\:0438\:043c\:043e\:0441\:0442\:0438 \:0440\:0430\:0437\ \:0434\:0435\:043b\:0435\:043d\:0438\:044f \:043f\:0440\:043e\:0434\:043e\ \:043b\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\ \:0438\:044f \:043d\:0430 \:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\ \:0435\:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0435 \ \:0438 \:0434\:043b\:0438\:043d\:043d\:043e\:043f\:0435\:0440\:0438\:043e\ \:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0435 \:0434\:0432\:0438\:0436\ \:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430 \ \:044f\:0432\:043b\:044f\:0435\:0442\:0441\:044f \:0443\:0441\:043b\:043e\ \:0432\:0438\:0435 \:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\ \:0441\:0442\:0438 \:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\ \:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:043f\:0440\:0438 ", Cell[BoxData[ FormBox[ SubscriptBox["\:0441", "2"], TraditionalForm]]], " > 0." }], "Text", CellChangeTimes->{{3.502080822218834*^9, 3.5020808406178865`*^9}}], Cell[TextData[{ "\:0423 \:043f\:0435\:0440\:0432\:043e\:0433\:043e \:0440\:0435\:0436\:0438\ \:043c\:0430 ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["c", "2"], "=", RowBox[{ RowBox[{"-", "0.71"}], " ", "\[DoubleRightArrow]", " ", RowBox[{"\:041a\:041f\:0414", " ", RowBox[{ "\:043d\:0435\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e", "."}]}]}]}], TraditionalForm]]], "\n\:0423 \:0432\:0442\:043e\:0440\:043e\:0433\:043e \ \:0440\:0435\:0436\:0438\:043c\:0430 ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["c", "2"], "=", RowBox[{"118.6", " ", "\[DoubleRightArrow]", " ", RowBox[{"\:041a\:041f\:0414", " ", RowBox[{ "\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e", "."}]}]}]}], TraditionalForm]]] }], "Text", CellChangeTimes->{ 3.502081490692069*^9, {3.5020815363896823`*^9, 3.50208161571722*^9}, { 3.5020817035292425`*^9, 3.502081720747227*^9}, {3.502475633273857*^9, 3.502475638094265*^9}, {3.5024761751564083`*^9, 3.5024761937696643`*^9}, { 3.5024768122405224`*^9, 3.5024768128333235`*^9}, {3.50247686785462*^9, 3.5024768691026225`*^9}}], Cell[CellGroupData[{ Cell["\:0420\:0430\:0441\:0441\:043c\:043e\:0442\:0440\:0438\:043c \:043f\ \:0435\:0440\:0432\:044b\:0439 \:0440\:0435\:0436\:0438\:043c", \ "Subsubsection", CellChangeTimes->{{3.502081726358548*^9, 3.5020817342229977`*^9}, 3.5020876267930336`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"c1", "=", "0.208"}], ";", RowBox[{"c2", "=", RowBox[{"-", "0.71"}]}], ";", RowBox[{"c3", "=", "3.72"}], ";", RowBox[{"c4", "=", "0.411"}], ";", RowBox[{"c5", "=", "0.11"}], ";", RowBox[{"c6", "=", "7.48"}], ";"}]], "Input", CellChangeTimes->{{3.5020817385912476`*^9, 3.5020817890921364`*^9}, { 3.502359311111602*^9, 3.502359360374419*^9}, {3.502476205360485*^9, 3.502476238011342*^9}}], Cell["\<\ \:0410\:0432\:0442\:043e\:043c\:0430\:0442\:044b \:043f\:0440\:043e\:0434\ \:043e\:043b\:044c\:043d\:043e\:0439 \:0443\:043f\:0440\:0430\:0432\:043b\ \:044f\:0435\:043c\:043e\:0441\:0442\:0438 \:0434\:0430\:044e\:0442 \:0432\ \:043e\:0437\:043c\:043e\:0436\:043d\:043e\:0441\:0442\:044c \:043e\:0431\ \:0435\:0441\:043f\:0435\:0447\:0438\:0442\:044c \:0443\:0434\:043e\:0432\ \:043b\:0435\:0442\:0432\:043e\:0440\:0438\:0442\:0435\:043b\:044c\:043d\:044b\ \:0435 \:0434\:043b\:044f \:0440\:0443\:0447\:043d\:043e\:0433\:043e \:0443\ \:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f \:0445\:0430\:0440\ \:0430\:043a\:0442\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0438 \:0443\ \:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\:0441\:0442\:0438 \:0438 \ \:0443\:043f\:0440\:0430\:0432\:043b\:044f\:0435\:043c\:043e\:0441\:0442\:0438\ , \:043a\:0430\:043a \:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435, \:0442\:0430\:043a \:0438 \:0441\:0442\:0430\:0442\:0438\ \:0447\:0435\:0441\:043a\:0438\:0435, \:0434\:043b\:044f \:043b\:044e\:0431\ \:043e\:0433\:043e, \:0432 \:0442\:043e\:043c \:0447\:0438\:0441\:043b\:0435 \ \:0438 \:043d\:0435\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\ \:0433\:043e \:0432 \:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\ \:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:043c \:0434\ \:0432\:0438\:0436\:0435\:043d\:0438\:0438 \:0441\:0430\:043c\:043e\:043b\ \:0435\:0442\:0430.\ \>", "Text", CellChangeTimes->{3.5020824206112576`*^9}], Cell["\<\ \:0420\:0430\:0441\:0441\:0447\:0438\:0442\:0430\:0435\:043c \:043f\:0435\ \:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0435 \:0447\:0438\ \:0441\:043b\:0430 \:0410\:041f\:0423.\ \>", "Text", CellChangeTimes->{{3.5020828046372223`*^9, 3.5020828334478703`*^9}}], Cell["\:0417\:0430\:0434\:0430\:043d\:043d\:043e\:0435 \:0432\:0440\:0435\ \:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f:", "Text", CellChangeTimes->{{3.50208303538242*^9, 3.502083044021914*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Treg", "=", "2.5"}], ";"}]], "Input", CellChangeTimes->{{3.5020828444424987`*^9, 3.502082935917731*^9}, 3.5020830258808765`*^9}], Cell["\<\ \:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440, \:043e\:043f\:0440\:0435\ \:0434\:0435\:043b\:044f\:044e\:0449\:0438\:0439 \:043d\:0443\:043b\:044c \ \:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0439 \ \:0444\:0443\:043d\:043a\:0446\:0438\:0438 (\:043f\:0440\:0438 T0 = 1.5 \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:044b\:0439 \:043f\:0440\ \:043e\:0446\:0435\:0441\:0441 \:0432\:044b\:0445\:043e\:0434\:043e\:0434\ \:0430 \:043d\:0430 \:0437\:0430\:0434\:0430\:043d\:043d\:0443\:044e \:043f\ \:0435\:0440\:0435\:0433\:0440\:0443\:0437\:043a\:0443 \:0431\:043b\:0438\ \:0437\:043e\:043a \:043a \:0433\:0440\:0430\:043d\:0438\:0447\:043d\:043e\ \:043c\:0443 \:043c\:043e\:043d\:043e\:0442\:043e\:043d\:043d\:043e\:043c\ \:0443):\ \>", "Text", CellChangeTimes->{{3.50208305759669*^9, 3.502083080381994*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"T0", "=", "1.5"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.5020829157165756`*^9, 3.502083018678465*^9}}], Cell["\<\ \:0412\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\ \:043e\:0432\:0430\:043d\:0438\:044f \:0445\:0430\:0440\:0430\:043a\:0442\ \:0435\:0440\:043d\:043e\:0435 \:0434\:043b\:044f T0 = 1.5:\ \>", "Text", CellChangeTimes->{{3.502082910447274*^9, 3.502082913140428*^9}, { 3.5020830959838862`*^9, 3.502083114635953*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Treg0", "=", "3.8"}], ";"}]], "Input", CellChangeTimes->{{3.5020831170220895`*^9, 3.502083124992545*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalOmega]0", "=", FractionBox["Treg0", "Treg"]}]], "Input", CellChangeTimes->{{3.5020860244303837`*^9, 3.502086063019591*^9}}], Cell[BoxData["1.52`"], "Output", CellChangeTimes->{ 3.502086063367611*^9, 3.502355696802875*^9, 3.5023583231440935`*^9, 3.5023583675946355`*^9, 3.5023594351206946`*^9, 3.502438791274624*^9, 3.5024388725212708`*^9, 3.5024390908487587`*^9, 3.502464996582588*^9, 3.502465050853692*^9, {3.502465176261865*^9, 3.5024652023003545`*^9}, 3.5024652641238904`*^9, 3.502465764140532*^9, 3.502466091931897*^9, { 3.502466510167226*^9, 3.5024665311694098`*^9}, 3.502470116722722*^9, 3.502470371532799*^9, 3.502470419658622*^9, 3.5024704512217274`*^9, 3.502470502998677*^9, 3.502470902531912*^9, 3.5024709583051453`*^9, 3.502473414128843*^9, 3.5024735325954924`*^9, 3.502473636104149*^9, 3.502473741979138*^9, 3.5024738618918467`*^9, 3.5024739077582226`*^9, 3.5024741470327454`*^9, 3.5024742526714983`*^9, 3.5024743181667833`*^9, 3.502474383310454*^9, 3.502474575949793*^9, 3.5024747457408276`*^9, 3.5024747966736565`*^9, 3.502474830592149*^9, 3.50247491882624*^9, 3.5024753967462416`*^9, 3.5024754946676135`*^9, 3.502476327493099*^9, 3.502476838635769*^9, 3.5024770097836695`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Mu]", "=", FractionBox[ RowBox[{ RowBox[{"3", " ", "\[CapitalOmega]0"}], "-", "c1", "-", "c4", "-", "c5"}], "c3"]}]], "Input", CellChangeTimes->{{3.5020860854228725`*^9, 3.502086116167631*^9}}], Cell[BoxData["1.0298387096774193`"], "Output", CellChangeTimes->{ 3.5020861188967867`*^9, 3.5023556968358765`*^9, 3.5023583231820955`*^9, 3.502358367633638*^9, 3.502359370843018*^9, 3.502359435146696*^9, 3.5024387913196263`*^9, 3.502438872574274*^9, 3.502439090913762*^9, 3.5024649966735935`*^9, 3.5024650508836937`*^9, {3.50246517635087*^9, 3.502465202331356*^9}, 3.5024652642148952`*^9, 3.502465764172534*^9, 3.502466091961897*^9, {3.5024665102262287`*^9, 3.5024665312824163`*^9}, 3.5024701167617245`*^9, 3.5024703715668*^9, 3.5024704196986227`*^9, 3.5024704512677298`*^9, 3.502470503031679*^9, 3.502470902579915*^9, 3.5024709583611484`*^9, 3.5024734143538556`*^9, 3.5024735326474953`*^9, 3.502473636242157*^9, 3.502473742048142*^9, 3.5024738619278493`*^9, 3.502473907797225*^9, 3.502474147095749*^9, 3.5024742527715044`*^9, 3.5024743182187853`*^9, 3.5024743833504543`*^9, 3.5024745759877954`*^9, 3.5024747457908306`*^9, 3.50247479672866*^9, 3.5024748306271505`*^9, 3.5024749188782425`*^9, 3.5024753967774415`*^9, 3.5024754947924137`*^9, 3.502476261504983*^9, 3.5024763275086994`*^9, 3.5024768386825686`*^9, 3.5024770098304696`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CyCgp", "=", FractionBox[ RowBox[{"c4", " ", "c6"}], "9.81"]}]], "Input", CellChangeTimes->{{3.5020862075648584`*^9, 3.5020862496642666`*^9}}], Cell[BoxData["0.3133822629969419`"], "Output", CellChangeTimes->{ 3.5020862521544085`*^9, 3.5023556968708787`*^9, 3.5023583232170973`*^9, 3.50235836767264*^9, 3.5023593748132453`*^9, 3.5023594351736975`*^9, 3.5024387913596287`*^9, 3.5024388726252766`*^9, 3.502439090976766*^9, 3.502464996756598*^9, 3.5024650509146957`*^9, {3.502465176439875*^9, 3.502465202363358*^9}, 3.5024652642989006`*^9, 3.5024657642045355`*^9, 3.502466091991897*^9, {3.5024665102872324`*^9, 3.5024665313984227`*^9}, 3.502470116798727*^9, 3.502470371609803*^9, 3.5024704197336226`*^9, 3.5024704513117323`*^9, 3.502470503068681*^9, 3.502470902631918*^9, 3.5024709584081507`*^9, 3.5024734145818686`*^9, 3.5024735326974983`*^9, 3.502473636368164*^9, 3.502473742117146*^9, 3.5024738619658513`*^9, 3.502473907835227*^9, 3.5024741471537523`*^9, 3.5024742528715096`*^9, 3.5024743182707887`*^9, 3.502474383392456*^9, 3.5024745760237975`*^9, 3.502474745841833*^9, 3.5024747967896633`*^9, 3.5024748306631527`*^9, 3.502474918929246*^9, 3.5024753968086414`*^9, 3.5024754949016137`*^9, 3.50247626546739*^9, 3.502476327539899*^9, 3.502476838760569*^9, 3.5024770098616695`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K2", "=", FractionBox[ RowBox[{ RowBox[{"3", " ", SuperscriptBox["\[CapitalOmega]0", "2"]}], "-", "c2", "-", RowBox[{"c1", " ", "c4"}], "-", RowBox[{"c3", " ", "c4", " ", "\[Mu]"}]}], RowBox[{"c3", " ", "CyCgp"}]]}]], "Input", CellChangeTimes->{{3.502086123634058*^9, 3.50208619483113*^9}, { 3.502086256480656*^9, 3.502086274047661*^9}}], Cell[BoxData["5.130608386353879`"], "Output", CellChangeTimes->{{3.5020862647531295`*^9, 3.5020862753717365`*^9}, 3.5023556969028807`*^9, 3.5023583232530994`*^9, 3.5023583677166424`*^9, 3.502359376981369*^9, 3.502359435197699*^9, 3.502438791395631*^9, 3.5024388726802797`*^9, 3.50243909104477*^9, 3.5024649968586035`*^9, 3.502465050943697*^9, {3.5024651765268803`*^9, 3.50246520239536*^9}, 3.502465264390906*^9, 3.5024657642325363`*^9, 3.5024660920318975`*^9, { 3.502466510336235*^9, 3.502466531495428*^9}, 3.5024701168397293`*^9, 3.502470371642805*^9, 3.5024704197686234`*^9, 3.502470451344734*^9, 3.5024705031036825`*^9, 3.5024709026789207`*^9, 3.5024709584551535`*^9, 3.5024734149998903`*^9, 3.5024735327485013`*^9, 3.5024736364901714`*^9, 3.50247374218615*^9, 3.5024738620028534`*^9, 3.5024739078742294`*^9, 3.5024741472087555`*^9, 3.5024742529645123`*^9, 3.5024743183217916`*^9, 3.502474383430458*^9, 3.5024745760617995`*^9, 3.5024747458898363`*^9, 3.502474796845667*^9, 3.502474830693155*^9, 3.502474918990249*^9, 3.5024753968554416`*^9, 3.502475495026414*^9, 3.5024762678697944`*^9, 3.5024763275710993`*^9, 3.502476838838569*^9, 3.50247700989287*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Omega]z", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1", "+", RowBox[{"c3", " ", "\[Mu]"}]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086292714729*^9, 3.5020863559183435`*^9}, { 3.5020863960746403`*^9, 3.5020864160587835`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"4.039`", "\[InvisibleSpace]", "+", "s"}]}, { RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020864083853445`*^9, 3.502086416956835*^9}, 3.5023556969358826`*^9, 3.5023583232891016`*^9, 3.5023583677576447`*^9, 3.5023593802045536`*^9, 3.5023594352227*^9, 3.502438791433633*^9, 3.502438872731283*^9, 3.5024390911117735`*^9, 3.502464996945609*^9, 3.502465050973699*^9, {3.502465176639887*^9, 3.5024652024273615`*^9}, 3.5024652645009117`*^9, 3.5024657642685375`*^9, 3.5024660920618973`*^9, { 3.502466510382238*^9, 3.5024665315934343`*^9}, 3.5024701168787313`*^9, 3.502470371675807*^9, 3.502470419803624*^9, 3.502470451377736*^9, 3.502470503137685*^9, 3.5024709027259235`*^9, 3.5024709585031567`*^9, 3.5024734152309036`*^9, 3.502473532801504*^9, 3.502473636612176*^9, 3.5024737422541537`*^9, 3.502473862039856*^9, 3.502473907913232*^9, 3.502474147264759*^9, 3.5024742532065268`*^9, 3.5024743183707943`*^9, 3.5024743834694605`*^9, 3.502474576099802*^9, 3.502474745942839*^9, 3.5024747969106703`*^9, 3.502474830718156*^9, 3.5024749190452523`*^9, 3.5024753969022417`*^9, 3.5024754951356144`*^9, 3.5024762719258013`*^9, 3.5024763276802998`*^9, 3.502476838916569*^9, 3.5024770099240694`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Alpha]", "=", RowBox[{"Simplify", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"CyCgp", RowBox[{"(", RowBox[{ RowBox[{"c5", " ", "s"}], "+", "c2"}], ")"}]}], "+", RowBox[{"CyCgp", " ", "K2"}]}], ",", RowBox[{"CyCgp", RowBox[{"(", RowBox[{"s", "+", "c4"}], ")"}]}], ",", "0"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086816999716*^9, 3.5020868435512347`*^9}, { 3.5020870184622393`*^9, 3.5020871299286146`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"1.3853402599388382`", "\[InvisibleSpace]", "+", RowBox[{"0.03447204892966361`", " ", "s"}]}]}, { RowBox[{"0.1288001100917431`", "\[InvisibleSpace]", "+", RowBox[{"0.3133822629969419`", " ", "s"}]}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.502087095202628*^9, 3.5020871305366497`*^9, 3.5023556969708843`*^9, 3.5023583233271036`*^9, 3.502358367801647*^9, 3.502359382908708*^9, 3.5023594352467017`*^9, 3.502438791473635*^9, 3.5024388727772856`*^9, 3.502439091176777*^9, 3.5024649970326138`*^9, 3.5024650510047007`*^9, { 3.502465176731892*^9, 3.5024652024603634`*^9}, 3.502465264591917*^9, 3.502465764300539*^9, 3.502466092091897*^9, {3.5024665104292407`*^9, 3.5024665318674498`*^9}, 3.5024701169167337`*^9, 3.5024703717108088`*^9, 3.5024704198386245`*^9, 3.5024704514117384`*^9, 3.502470503173687*^9, 3.502470902774926*^9, 3.502470958554159*^9, 3.5024734154599166`*^9, 3.5024735328545074`*^9, 3.502473636898192*^9, 3.502473742322158*^9, 3.5024738620778575`*^9, 3.502473907951234*^9, 3.5024741473197618`*^9, 3.5024742533075323`*^9, 3.502474318422797*^9, 3.5024743835084624`*^9, 3.502474576137804*^9, 3.5024747459918423`*^9, 3.5024747969756737`*^9, 3.5024748307431574`*^9, 3.5024749191002555`*^9, 3.502475396917842*^9, 3.5024754952448144`*^9, 3.502476277136211*^9, 3.5024763277114997`*^9, 3.5024768390101695`*^9, 3.50247700995527*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Theta]", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "s"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871437744064`*^9, 3.50208716481461*^9}, { 3.5020872668724475`*^9, 3.5020872685785446`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5020871654136443`*^9, 3.5023556970048866`*^9, 3.502358323363106*^9, 3.50235836784865*^9, 3.5023593858358755`*^9, 3.502359435272703*^9, 3.5024387915116377`*^9, 3.502438872816288*^9, 3.502439091259782*^9, 3.502464997118619*^9, 3.5024650510357027`*^9, {3.5024651768308973`*^9, 3.5024652024923654`*^9}, 3.5024652646809225`*^9, 3.502465764331541*^9, 3.502466092121897*^9, {3.5024665104792433`*^9, 3.5024665319774537`*^9}, 3.5024701169567356`*^9, 3.5024703717438107`*^9, 3.502470419873625*^9, 3.5024704514457407`*^9, 3.502470503207689*^9, 3.502470902821929*^9, 3.5024709586031623`*^9, 3.502473415690928*^9, 3.5024735329065104`*^9, 3.502473636966196*^9, 3.5024737423871613`*^9, 3.50247386211586*^9, 3.502473907989236*^9, 3.502474147373765*^9, 3.5024742533625355`*^9, 3.5024743184768004`*^9, 3.502474383548465*^9, 3.5024745761838064`*^9, 3.5024747460448437`*^9, 3.5024747970416775`*^9, 3.502474830768159*^9, 3.5024749191652594`*^9, 3.502475396949042*^9, 3.5024754953540144`*^9, 3.5024762787430134`*^9, 3.5024763277426996`*^9, 3.5024768390881696`*^9, 3.5024770099864697`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]v", "=", RowBox[{"{", RowBox[{"c3", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871754712195`*^9, 3.502087221239837*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"3.72`"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.502087194501308*^9, 3.502087221840872*^9}, 3.5023556970428886`*^9, 3.5023583233981075`*^9, 3.5023583678906527`*^9, 3.5023593881410074`*^9, 3.502359435298705*^9, 3.5024387915486393`*^9, 3.5024388728512897`*^9, 3.502439091314785*^9, 3.502464997218624*^9, 3.502465051064704*^9, {3.5024651770259085`*^9, 3.5024652025253673`*^9}, 3.5024652647399254`*^9, 3.502465764365543*^9, 3.5024660921518974`*^9, { 3.5024665105252457`*^9, 3.5024665320784597`*^9}, 3.502470116997738*^9, 3.5024703717778125`*^9, 3.5024704199086256`*^9, 3.502470451477742*^9, 3.5024705032436905`*^9, 3.5024709028679314`*^9, 3.502470958652165*^9, 3.5024734159069395`*^9, 3.502473532959513*^9, 3.5024736370331993`*^9, 3.5024737424541655`*^9, 3.502473862153862*^9, 3.5024739080262384`*^9, 3.5024741474327683`*^9, 3.5024742534155383`*^9, 3.5024743185278034`*^9, 3.5024743835924673`*^9, 3.502474576220809*^9, 3.502474746094846*^9, 3.502474797097681*^9, 3.5024748307941604`*^9, 3.5024749192932663`*^9, 3.502475396995842*^9, 3.502475495634815*^9, 3.5024762849206247`*^9, 3.5024763277738996`*^9, 3.50247683916617*^9, 3.5024770100176697`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Theta]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020872461072598`*^9, 3.5020872800412006`*^9}, { 3.5020873135241156`*^9, 3.502087319207441*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"4.039`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"1.3853402599388382`", "\[InvisibleSpace]", "+", RowBox[{"0.03447204892966361`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], RowBox[{"0.1288001100917431`", "\[InvisibleSpace]", "+", RowBox[{"0.3133822629969419`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], "0", "s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020872724027634`*^9, 3.502087280702238*^9}, 3.5020873204825134`*^9, 3.502355697076891*^9, 3.5023583234341097`*^9, 3.502358367933655*^9, 3.502359390716155*^9, 3.502359435322706*^9, 3.502438791588642*^9, 3.5024388728882923`*^9, 3.502439091369788*^9, 3.5024649973786335`*^9, 3.502465051094706*^9, {3.5024651771209145`*^9, 3.502465202557369*^9}, 3.502465264802929*^9, 3.502465764398545*^9, 3.5024660921918974`*^9, {3.5024665105772495`*^9, 3.5024665321274624`*^9}, 3.50247011703874*^9, 3.5024703718118143`*^9, 3.502470419941126*^9, 3.502470451510744*^9, 3.502470503277693*^9, 3.502470902914934*^9, 3.5024709586991673`*^9, 3.5024734160289464`*^9, 3.502473533012516*^9, 3.5024736371002035`*^9, 3.5024737426151743`*^9, 3.502473862191864*^9, 3.50247390806324*^9, 3.5024741474877715`*^9, 3.5024742534925427`*^9, 3.5024743186768117`*^9, 3.50247438364247*^9, 3.502474576260811*^9, 3.502474746156849*^9, 3.502474797163685*^9, 3.502474830819162*^9, 3.5024749193892717`*^9, 3.502475397027042*^9, 3.5024754957284155`*^9, 3.5024762872294283`*^9, 3.5024763278050995`*^9, 3.50247683924417*^9, 3.50247701004887*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Delta]v"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020873377695026`*^9, 3.502087345456942*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"4.039`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"1.3853402599388382`", "\[InvisibleSpace]", "+", RowBox[{"0.03447204892966361`", " ", "s"}]}], "3.72`"}, { RowBox[{"-", "1"}], RowBox[{"0.1288001100917431`", "\[InvisibleSpace]", "+", RowBox[{"0.3133822629969419`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.50208734629399*^9, 3.502355697109893*^9, 3.502358323470112*^9, 3.502358367973657*^9, 3.502359396988514*^9, 3.5023594353497076`*^9, 3.502438791627644*^9, 3.5024388729262943`*^9, 3.502439091419791*^9, 3.5024649974676385`*^9, 3.5024650511247077`*^9, {3.5024651772179193`*^9, 3.502465202591371*^9}, 3.5024652648939342`*^9, 3.5024657644305468`*^9, 3.502466092221897*^9, {3.502466510629252*^9, 3.5024665321754646`*^9}, 3.502470117076741*^9, 3.502470371844816*^9, 3.5024704199761267`*^9, 3.502470451543746*^9, 3.502470503315695*^9, 3.502470902961937*^9, 3.50247095874617*^9, 3.5024734161529536`*^9, 3.5024735330655193`*^9, 3.5024736371672072`*^9, 3.502473742694179*^9, 3.5024738622298665`*^9, 3.502473908101242*^9, 3.5024741475427747`*^9, 3.5024742535495462`*^9, 3.5024743187198143`*^9, 3.5024743836834726`*^9, 3.5024745763038135`*^9, 3.502474746208852*^9, 3.5024747972266884`*^9, 3.502474830844163*^9, 3.5024749194672766`*^9, 3.502475397058242*^9, 3.5024754957908154`*^9, 3.5024762891638317`*^9, 3.5024763278363*^9, 3.5024768393221703`*^9, 3.50247701008007*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"W", "=", FractionBox[ RowBox[{"Det", "[", "m2", "]"}], RowBox[{"Det", "[", "m1", "]"}]]}]], "Input", CellChangeTimes->{{3.502087352433341*^9, 3.502087360735816*^9}, { 3.502087393166671*^9, 3.502087413468832*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.4791364095412844`", "\[InvisibleSpace]", "+", RowBox[{"1.1657820183486238`", " ", "s"}]}], RowBox[{ RowBox[{"1.9055639045993886`", " ", "s"}], "+", RowBox[{"1.429023119266055`", " ", SuperscriptBox["s", "2"]}], "+", RowBox[{"0.3133822629969419`", " ", SuperscriptBox["s", "3"]}]}]]], "Output", CellChangeTimes->{{3.5020873971628995`*^9, 3.502087414114869*^9}, 3.5023556971428947`*^9, 3.502358323507114*^9, 3.5023583680136595`*^9, 3.5023593990936337`*^9, 3.5023594353757095`*^9, 3.5024387916656466`*^9, 3.502438872961296*^9, 3.5024390914707937`*^9, 3.502464997562644*^9, 3.5024650511567097`*^9, {3.5024651773159256`*^9, 3.5024652026223726`*^9}, 3.5024652649459376`*^9, 3.5024657644625483`*^9, 3.502466092251898*^9, { 3.5024665106772547`*^9, 3.5024665322224674`*^9}, 3.502470117106741*^9, 3.5024703718788185`*^9, 3.502470420008627*^9, 3.502470451579748*^9, 3.5024705033486967`*^9, 3.50247090301794*^9, 3.502470958792173*^9, 3.5024734162839613`*^9, 3.5024735331185226`*^9, 3.5024736372352114`*^9, 3.502473742761183*^9, 3.5024738622668686`*^9, 3.5024739081382446`*^9, 3.5024741475997777`*^9, 3.5024742536095495`*^9, 3.502474318754816*^9, 3.5024743837224746`*^9, 3.502474576343816*^9, 3.502474746263855*^9, 3.5024747972806916`*^9, 3.5024748308721647`*^9, 3.5024749195362806`*^9, 3.5024753970894423`*^9, 3.5024754958688154`*^9, 3.5024762908486347`*^9, 3.5024763278675003`*^9, 3.5024768394157705`*^9, 3.50247701011127*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Step", "[", RowBox[{"W", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.502087426669587*^9, 3.5020874432115335`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjHs0lIkfh1/X16121K5SjOF1S9qI2mrp+82lLPKjok1tasKwitAUY7ak XKNEJCnXONUgQpGEXFYkUrS5pLDuDcZgUH7tc87nPH98znnUmT573cQJgvD5 vv98+xxT2tD18g7iP5o2m9a0MWwPMDyBCH6SbGI5tWOpruIigxEIRJrnMi3D FbA8ruSh3PsQIGjdutLHNOF2ZYyaFCMSCN7qqmLZTaDPd72yxLoKRM3KsBya CXQvv/NtsSMOiCiLNavVLEAzW3bL/EICEF3K4SmWNnDClH1yVu0mEPdP6W4s d4BHb3uzps1TgDDquTd50AnmvWy7JlmpQLSEzB7mHII0sa7IWct0IJJnTXpi joLFq2taMx0Z33sz/RvvHIehpN1V055ZQPQK9u0Zd4do16+HBQt3IVgrN5DJ +RPaFjyuT6jdg+DXVl8StXzhTD3dgF9wHyrpp2iZu/xhTfzbxnFzHlQeHqct C2UDUw8lRln5ECwczmL9zgHxBc7rae5DIMxCta+NceFtr6PqtGUBEOJpR6JS zkMAT750qqMQCEbfJuOcELCO+1d6Ku0R4GWrf+t0LoFKQNX+Sc8iOKpWJBdS HAqV5mcn+AvFgKGuRx7PRgDZ+VlnXK0UGOFKvT/IxsL7ymfssaFSsI/5oMFZ iIX72UkvRgvKAJN+2lwjuAZ2fnYuI+blMNHVU5sujIdE2bLEQdZzaDF9+Jex SRKsSPlbfLKjGoai+ETQpzRYWF5y75TJC8DqT+Odl9Kh/0Km/UTaC/BwEZZH 62VACevcHb5nDcQ+0z1Tys0EZyPj7V8WaqFlfvNzi1+zIf1lqu+oWgMYuAzZ JivzYDqpWO9jdAMERNPGAr7wYBerse+NqAEYrUt879pcGJOYdSxrewnv5ULb AwPzYaup3fbI8Cb4sfSkynluAbTkL4rr8F8DcfdKywftYjj/Ut/a0KUNyqMk bPxln0FefmTniZ8/wO+pEgkHGfXAgtabY359cNhafz97pg28B9b1FeUNg4j3 SMb1aSfIqV/S+bh1AhIzI85mxX+CK7RGvfSjApCjtzmJovuB2bn/uUTTDKhs 5clMOQyCb+0lpo/OPHBFHYsD+cNQcEph3+rfvkJjqT7h/WAU0oO8RgwOECgs iTBrzR6HkNRFh+kxMdSKWvTpduMD0daL5RwJHAoarFYLmwDt0+4B+/Wk0GfH zI0mt0noF95wkn8mjdz8Ot4ZoymwHvjzrzhfGdQcb1gdTROAXX/sejpdDj0s +z7eHBLAyAtm8N+58ujB5s3fL5iGnxXbVc1dluFLGc6F6MtCkAPhsS7BcqSx nVU7nWZg97jzrIYjDXWLF5m6RrPwvtpVzFlfEa+cvGDNkZ+D4oiaIwyhIhZ/ a2bZv5sDdyl2b3PzCqx9PGa04aEIjvsFFSskr8T1NRrzUdx52Mha32x77Efs bh7dM2yxAK9X6Muzt/2Ev5jt0bGhL8LTvJBb+hJK6LBLfv+64UUIEtOzb+pW Qi/9kgLZ2q8g18Wx8i5ahf+bK7MfTPkGA9nq11O5q7FQoTAA3Jfguq6yZKmj MoZ17gy0ZRAYm+xef4yxBnt9DfZsCSPQ+fofzQqDazChScWZPkLgnMVdUWrF Wux+ozAT5iSGfQNmAdXhKphgjYm8p2KYYWq49tUxVfTVra7au04cc0PZiqwN dOxICucXXxXHcMfjNhJCOvrYjNuumhbHzV3p98JfqeFSQpux6KgEJq27lfvK hoEphuJqSXUSeL4yJsmmlIHrDV7FPzaWxD1rHe++1FRHhYGgre/SJHGnd/0h xUh1DDWt/ZgvJYWpKkzNJqE6hte1K8r7S6Hmi5xEu0MaKLMrZRf1jxTGbqjW e1OhgRfZQQ+2mUqju0CytUGPwuqGTbda7kkjs2CKEXmVwkJnXozmDySeCNm3 aH2NQu2AcmKYRiJ7X1GHQjyFQQlN/rkrSIwQsq/EJlLY8nrs4BYlEvO2iRZu 3KZQ33yDtpUqiaKqpfbsBxQKNPMqvNaTGPtGIaamnsLG9nx+4W4SkzNPeoQ1 UGg8+Zx59jcSM083m1s1Uhgp3/LuVxsSS5Ri5xubKZyDiac1diR2Oa/0aHv3 vZdjENHuSKJOn7L55z4KE04XMOaPk2hQxKFnDVDYE1MVX+FG4vbQTpHbIIWr clqlL7JItNW5/XB4hMID/0yOyXuR6OfFoE9OUqhpuqlU1Y9ErskFUaGAwilH M/3P/iSGLvv89rSQwgLvvanZbBKT8jMvz81RKJXmF7oxkMSMYElW2TyFyU9C 5gQcEh84uJlxFylUb43zesIlsUijTnXHt+//cEYP9xyJFQJt0dIShaT4I4ed wST+H/hhPhU= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 2.9376245863679773`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.5020874464347177`*^9, 3.5023556977549295`*^9, 3.502358323908137*^9, 3.5023583684176826`*^9, 3.5023594040239162`*^9, 3.502359436511774*^9, 3.502438795688876*^9, 3.502438874535386*^9, 3.5024390938829317`*^9, 3.502465001230854*^9, 3.502465052525788*^9, {3.502465179200033*^9, 3.5024652041564603`*^9}, 3.502465266443023*^9, 3.5024657658986287`*^9, 3.502466093696953*^9, {3.5024665129023805`*^9, 3.5024665343725877`*^9}, 3.502470118496767*^9, 3.5024703733488903`*^9, 3.5024704217231965`*^9, 3.502470453031831*^9, 3.502470504771778*^9, 3.5024709050998535`*^9, 3.502470961326312*^9, 3.5024734207874126`*^9, 3.502473535213642*^9, 3.502473639309327*^9, 3.502473744848302*^9, 3.502473863662545*^9, 3.5024739096243296`*^9, 3.502474149787903*^9, 3.5024742575925646`*^9, 3.5024743222974157`*^9, 3.502474385230558*^9, 3.5024745778648973`*^9, 3.502474747848943*^9, 3.502474799487818*^9, 3.5024748322462406`*^9, 3.502474921393387*^9, 3.5024753997102466`*^9, 3.5024754983024197`*^9, 3.5024762973850465`*^9, 3.5024763290687017`*^9, 3.5024768408197727`*^9, 3.5024770107352715`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BodePlot", "[", RowBox[{"W", ",", RowBox[{"-", "2"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.5020875243681755`*^9, 3.50208757812825*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVzWs81GkfgHE5i40ZM4YZGXJmyzg9ZKz7TqVFOVNmUrM6rNWKSBEJUciW tRQlSszKjkI51NL/J5SNVluMSQ6FHCY0Uyqh7D4vrs/35WUQGum3T1ZGRib7 v/7vzkeSP2oOkMF8tUz1gKwzdqOmqlLCyJB66KcBuUU2ZvE0DxzZS4YTfeMr Ld+zsfxHewt2CBn+ePvtwfhRNhYYJFS0eZGhP8bXS6uNjRfjFMr7rMmAZw7E +aSz8UVTevGXTyQQd0/mPFBi4760jTnuaSToNuT13lVzwhzLYyfCMzXg6bqD TwumHfDk/rr2IBd1aDNnf/dSYo/zz19apxLzDQykilquLdviwGL3qsfJqnCi eszb+rU13vCTJ+XpTRWoiDnkY/DSCmM16q+TDUpQNxvB6+Jb4sa/5aqt/lKA r9bU8/MZpnhngFtD/aIcNKXON0w2GWLNWp8ebyVZ4Fs1aj8JZeKPT288N7OT gbsxp83Xr9TGZSZ7Zff1LBE50oL2WCYJp25fSCx6N0+0KFbKkwzlceMqxw5/ /w/EgWTb4llbCaIcUUBW+6UEw3dDTWHAC6KqR2rdFiQl+rca/VVaOkC42Q4Z BW+REhrReS/+fjtIxEvqV540kxKI/UHwcONLYig8TCgUS4gIU2eV7cIRomJ3 Z0RSpIQo4gjmyscniCO5a9Zfks4Su5QsXKTPJUS7o9Ncn9YbYrjdvLBpxQJh YVMgoi6ICd0Gr7OPXBeIHMuPTf6DYqLgfQir8uQCwdGrTe++JiYyH4b2DMkv ErNyFrSHLDHBsz9uoq+wRGh36zjVe0wRSUzaM+0vX4if930+kZc0QTwZrvum 97UMkHMbVX3HRwmz1Fv3smLlIeiCYM7ITkTkqQtN4zeqwj9b1My9PFuJXdPl gUaJGuC08jih9/g+Ib52+/qODA0o65oJfOt1n4jwphqczdOAI77dqTl+LcTh zxPLSwINcKg3ulN+6x4x9HR53eygBnQNsPRvPqknEnZ87+yMSSD83eiOkmUR 4X6GtTVRiQwN7FOx2imNaGVI9pncCk0wM839NBR3BwlrN7mI6zShgFwcXx51 F11zb5V6tmrCsam64za8JiTJfPB+7ZAmlHS+c+UzAZXNns6PolBgT/waT/ja ijj6Hw3IJykg7knhzjV1Io3a2+9FP1Gh9NHpoj7HLhTq4m3XFEcFLvwyePd2 F3LYkcu7cZoKXX8U7k4RPEYehztXQzkVqlJr9qwq6kbkj8OFl0eo4Fggsc9r /gc9O15kt3e3Fixt1ne5UdSLRK59F1z20yCmo+DVUWEvSswQVZkdoYHYg5S+ QUOIWJQZa6NTNOjzlu3qOSlElYUSFR8+DWqDx4IXw/uQ04T+laQJGoRFVMR+ v/452qRzNDsgQhue5bGqRnoHUCvFUb3ztA540K77CNQH0clGs7WGF3UACg3m Yt0HkSqq68sR6MCNYjJbpXkQlT6d8av6RwcyKuY6rMqGUIdu+O5ZXTowd+2M dln/EhWv2BEtaKBD7yH9s2eURpDc12lVyVcG5NgnuwybjCDFpLbOFVq64PF5 eNbGbQRllN4PsV6rC/eSS7z700aQxRVahpirC/xzeiRz2VHkUxkt6rirC3FV unkPlkaRUsmAwD9pNdCntC+uePcalf5eonNqNRN6BHEegaRxdLMIS3MdmXA2 SrRQwRpHfPLj8y3+TJCbv8D1iRxHUj27+rQsJkwr0laXTI+jag8po/wzE5qN qFecJybQ0vqFJetIfeDxSPyjA1PI4pxmseMPBjA58WZ7w+cpFJXfnj4eaQCR kQ9UPmmJ0cGMCfeyJANISkqIOOIrRk0/vzruXWQAl4pe28U+EKMgDxmzfSID EIrutEZXv0FW2Yo5v/qvgW2+oa8i0maQ3P7rbxWCDGH11eBVNucl6Dt5Q/+0 M8Yw9qd9aEaZBNUk6B16cdkYBEJS/VCtBKlTsvs3VBuDs9qjkDPdElQUO5rg 3GsMO486VY0pS9HXmpv7JpkmULSNsfVCghTJrJvrpDaaAH1hIHOJ9w4lDvKb Lrw3BW1/nsJDyzn0d5+/9a58C5gJ6HvioD6PnkW0zzESWRD+hN9pVr2IYu/c bB19ZAstl8YvfiheRvJZnnpVJQ5AoczmVjevwNrWYbVu2Wxg0KhR/Cw57Pr1 91vzWxGoux52yEpSwIMlyl2nGjZA3/UTWut8lXC8YvC8deVGMHm3z/8qXQW7 1ZwxG8nfDKGhacdkVVWx0zHa8oGqLRCt7n3HsF8Nj0W11LiVukPkmO+IzZNV mMUU+6nc9wT9hGRSip8GbtuT9ovrvW3gebid5+NIwt35HOiq9oaDKSbl563J +Epe+alX4z6wIAj54EzXxKohMak/jPpC4nS1E0eLggPWPuOrfvAD1yLpuuFv qFhNOdiFWBEA0eHKVm1zVEzZftsifCkACrayjfTfamHXMC+T9WpBYLZtk/GA iIYVWg/MLalsh6Vmp97lZm3cdbYttk12Bzxw3XbsYr0OLjdVunhDIxgWXttb 5hfT8UyYn3e2Ggf+51wtc7WUjmFLi1SiwYHoXAuhgE/H9XZ2eYFUDky5MFPa btBxlLbJcz09DoguKPe9v0fH/9331FhxoM79RarfMB1XZ1LjhH4ciKpK7lfX Z+DCxZgy/UIOCOQWbzKMGNjvU+CW9MscmAyOTTc1Y2BHHbZ46ioHdiuGsxCL gW3qV7FuVXLAa7f/qYOYgQP5/X9ubuKAJcnE5jGPgQ9pyvSED3Ng/49XlJ7v ZeCa30hHu0c5UNpMHxwLY+Bd/cZ0u0kO0MPVM5aiGLisLIj3RcIB5db5QcsU Bqb8Jpo+J8uFTToxtxzSGThLsHxuTpELyZEzGRszGfg1z9w2WJULnxgjttxf GTggPS1+DYULNtE7VX7MZ2DlN3W6p7W5cLBDOBRdyMAvhVPEG10uVOr53k66 zMAdG/X3+BhwYfxwZ2bWVQau/TZYsc6YC/8C1E1Izg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[100], 0}, {-4.605170185988092, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[100], Log[1000]}, {-108.58917387684303`, 28.01117992403775}}, {{-4.605170185988092, 6.907755278982137}, {-108.58917387684303`, 28.01117992403775}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13c81P8fAHAcKTLOdiJJZCSaSO6dSBkf846KrLvL1ygpMyuj0lJKqSQN lJAk2Z8XSXYqKzsrZI+Q9fv8/rrH83Hvx/ve79e6z2eL81lLJgcbG1sZOxvb /z/tqiffvHMXgtZCBQ4TPTocEQ3nFXEVgrKYu8oihNUdhd19GULw8F6UbMch OnD+3at8wF4Itmw9fMGdcPqWi6/KMSEo3Lgl9wqiw5I/V3KLhhD4/60IzNWl wyNFSuLKPBk6AsUK/mjTIdL7zYrDLBkGgob3ZxA+U6xjXzZJBubRQ8FnCOtZ OWy6MkyGpbr39pNadBgOeflIsJ0Mtuk8XlOadNBsVnuwtYQMVCYlY2gfHVoi D98+FkmGU90kkbRddPB2YBM5FUaGL/kr+04R3qhd/MA7iAwpeZkCQoTRxL6n jy+QQeeSyC9/DTq8Oq6cOcYgQ9f92SU9dTr4q5Fr7xiQQXnI6FvlDjpItHZx t60jg0DR+4H47XQ4oRIY6hYtCLUyByla0nQIzOCOKI0SBPmQp1ldm+jweGfc ZYlwQRjPDpmNINyxO+tmRaAgxDdfjaiTooO9zuBjOQ9B0Nodm2tHoYOjqWVe GyYI2JmGHe7idDh9VnnKSEQQGvNrDx4h02GI9eEzXVcAGLRdfb0kOqSu2cYo 7RcAkjuWcJ4wK37ZdnmnAOiTpKdJhPuqDo8+2yIArWwXvLdy0KFL9bvQGKcA JM+7Ftmz0eHH9LhDRA0/xO0JUMSXaVASsv3fW1t+sD3A1b5rjgbB4rWfwi34 gT01/GLuLA10ss7epBnxg2/hngwtwvm/cmWXDvDDWlV2me4MDXL0DQyPbOaH LDvXN4enaJDG43yvY4APHhbpSmuO0SDu/mO1Def54HjfYHFlP7Eeu4+QOx+s HMyf0yD8Y90dSz8XYv1B+YRHfTQg+132HbDig2XHp7vcemlw0+ZcSekePlA5 ye/H0UODKAlDLPDvRig/4Nwn1k4Dn0fTnn8CNkKNvrZ9TQMNaInHMurCeIGl ndNwqIAGYckDJdEBvODtI7JwK58G6emXGgy8ecF6XVJoex4NOAvzZ4pdeCHN VSjD+yMNsluUtDOP8EKcjK73wxwaCJJ5vtzayAtzLCWVykwa1ERU95jF80Bh zBnPlOc0OPSfscj3txvAxVTkssFVGtTG6J6ZTt0Afb03Qqyu0MA2V6NSKGkD NDuzxThepoEXSSLI6vYGoBvGzvpF0iDpSX9fo9cGSO23KXwcRgO278HvWzQ2 gHmnRnCuPw1AO8uy8/164M9q+bXLlQZoo+idoY/ccEi0plZUnwZGX25n7Mji hubHK7eH9GhgHb6x2vsVN4iG1ekWHKKB6wKJtBLPDQOLyVYnqDSI6Z++QA7k Bg/V8qM3tWnQVdRgq63DDf3PY+4Wq9MgyPOG7A1YB5wdT1UObaJBXj0pa2cV F+CbIxSeTlhDfats7WIpF5xGCQzdcWsY6D049KmAC8IVQi52jFqD0LyfrG06 F8glsNRFR6zBY/Po7bAYLjB6bZLk328NW7waz32jcYG/yv7+dT+t4Ro5eff5 Xk5I2rLT9kCpNdhZH/mYu0SCS8L1f5pvWsOP4AKpgRkSfHVbOs9+wxqMUtXC hEdJQJJrZChfswbNf2LHvDpIIG1wP8jvsjUIJ/1uUyomgYF7v+tqiDVU/7m6 mhBCguv/Vk+UnCXWR9QYRLCToObM0NqaGbE+27zRjJsD/LMEQmx5reG+MkuT xMYBI1MRATobrIHy4mJC7gI73LzS8EuG2xrk7qUwpEfYgTZQ9reLwxrUfZdn R2rZYZOC5FaTf1Zgov1K9HIsO5QoRAu3DVlBZNkavUia+L7ks3xpuRX8/Z75 c/seNrjxSKDwtZ8VvFRgcDAbl/FGDnGXuDpLCLf5F5QwvYA/rA3U8l2ygDx+ zUorqzlcqtbAXnS7BYj4clF3sqZwlQeDQW8MzCGjcUqjnD6Fm1qxL9rrmcOR 3V3yxw2n8JZGwVAhqjkETObyRGyfwhV9gmsvaZpDl5trc/PIJL6saMoKVDGH Vw41niFnJ3GjcdegdrI5+MbKaT2eGscLYmZfHig1g1dmSzKfv4/jQ+s6go8U mkH7xkbOiffjOEuGs8jmgxmgK1ENer7juNoU9uHmazPgCRo6PfJvDLc5a1Nw LNYMEpmZ97U4x/B/sVXSwkwz+KypPdsi9gfXmVbS8BE0A+Vd8a2i/0ZwLitq QyWvGdxW+Vtk1TmCJwuyb5XnNoMTMtlRX1+M4CUavvLTKxiMk5TFv6iP4H9v 99uP/cFA4qukdq7RMN7ZKtJ3pgqD4Eo/mdkdw7iGOOuEwWcMekubOHaRh3GD fLto+VIMMnLu1GS0DOHc63aareRhoPdog30yYwj/ElmLKK8x8GAuht4L+Y03 N7QPCVzH4NspG8Z3p9+41sfr5wOuYLDP9sNRQYPfeNnLurzRCAzYjc+Rb/D+ xg+mOryfDMLgvvrw84j4Qfy+grGy11kMlpQMr5ReHMSR6i5jJQ8MHLcmu6+d GsQP1E+ljLpioCzmtOfitkHcwL0Ki3XGAF9q/eydPYB3+7lIn6RjID+3Ly0r bgBPM8r/ftoKg2vj926N+w/gdUHLh0LNMbD+ZW7jRh3AYy663aw3wmCoonLI qbYf1/dm3p6kYiAUm8drMdiHc97nmTNTxWBh/Xmy7Jc+XDqX3bVbCYPu0B3i E6l9uMVPxaQgRQzSPZ/L3fyvD994i5rZI4eBwbEbWlWjvXhBQ7WzBQUDVThC ja/rxbdu+SBrIUHsv5/d4HRmL+4eJUl1EMOgS97XnMurF69i8Y2kCGHgz+Z4 +tDML1zk9Sz/IC8Gp/wonoKNv/B/C8d/n+Ah9h9v9O7O+YWb+9jlda0n9us4 FhLs+wu3CDGMEV5HnNeSM9LE5hc+8eluQTknsX9VSbSU5i/8Lk1fKYqEwZuP u+PyF3vw/IlFyh52DGLVxh9dbevBBxLHyuTYiN9PfpVkU9iDK8bLLciumcKp TS4pCgk9uMuJkVq1VVPQvyudPhfUg79bvmxlsmIKyjyt78rte/BlbpXEgGVT IF+K/XhXtwfnsVgsyV0yhYV5k2LnzT1413fOShLhrjPcnzTYenBmtHmN4z9T iK6JuMNe1o3Hm3xtq1s0BXr+QsLTiG781xuX9caE5VI9Xx006Mbrq7qZrQum MHGv9337um5cW5OLy5dwUbgNHlDZhb9pjJzfSviqV221+LUuXDh5FeudNwXa qUPNH4y78J4cdul3hOVMcn9Z8XXhFtO8528TntBSGZuq78R3brzmHEa4SDFp IeZ2J15m1rL8f0eLinKqWXbilCsHrWIJ00nXBGqFO/EHLbO+OYS3Tq1S3Jo6 8KqkrQG/CU92nVdY/6ADv3Gyy03l/+erHdJIse3AfQMU7cMIRxfYH9SndOCe +hOOg4Tpr74f7W1vx1+WCF+x//997xtahz1px4vCHXsGCE9EFDnIOLTjyi9v BYcS8So6p+FeJNuOD8Ton1Um4hntkOJ7orcNPzAmWjFImG4qFb7wog2fC4mI zSHyMbmd6+EexTZ8VKqlLpLIX7FY4MvvQz/xL3IO9leI/F7jnHjrlfYTr5f4 8uIxkf+tPa0V6Tt+4nsNk+MWOTCYrDP9bjTRii883uJ0mKinosKyzqGsVjy7 M3rrUy4M6A/SZ+X3tOJvvpjV3iDq8eqKysrIYgvO89jfn0TUa4HLG653eAv+ KHqR7RpRz5vV08QOGrfggcWsnxX8GFjeV9pMIrfg4zft9YIFMYhcfqVY1dyM nzldmn+Y6IehylRNmnMz3rRVk4ud6BfKTsVDUtub8b86LVPz4hiYxKUc+zXW hF9+sSS9JonBO6fkE54BTXipsg5TVwaDwH/Pg6JuN+LWhv2rl/7fr45yUcb0 RpxDjrV/mejnropnN8mbGnH4dpf/CtHvh+8mJT5J/YHnWRh/qdfAYKNqInwo +Y5f/zjwXPEgBrqx0lUXI7/jfq/nyNsRBucWEr4dMvqOs514Hah1GIPm8se9 dU3f8K+nNJgxxzB4av+Qc3C0AZ/9zmhYb4PB908SfOnZDbhsRLpu7AkMOJXj Rb39CfdorqiewsD1732FVVID/tVaOu4+EwMXGaU7qvvqcW4mr+UBHwwqRxSf 55XW4TrbRxnmAcR8+ajwXt+0Dvf/q0HxC8bgr5l8kx2jFmc6Prm7GEXk49Jm yZux1fjxz6k/fjzAYNRURllSphovZPzm9UvAwIIifSD5dRVui9j2qD4j4vue Yl8MlXhqAU9AbRoRr37RZ2PjFbiPl3XLQAkx3w03KmHGn/BsucnXESMYaPME 4zJ1ZbjqN+PAikkMXtaO0SawMryfdnZNZh4DX4uv4bctS3Hszpo5mdMM9ufK 5ye/L8F7XC8oLcuYQW2Huuzbhlx82mWNf8aW+P9zEjI1b/yAx9aHFMQ5msG5 wZmAqZYc/AH3ZBbmagZik7k/dndn467Gs09J/mZQti6Q/1x7Br5/Ico1MN4M mlPl87lVEvDXhkzD551mIFuY5nFDKx5fDGjTzxg0A/d6dVny0Xu4n/dp0tcJ M1gbDuDfW30V75/Azqiwm0PeOI0Wt86d+sH8o6WOiDmUkQ9eofs+o8KrJy8i dczh44HLPhKX8qhOusikJM4ctivGznf551OXmlUfxD82h3ihxIBkrwLq55pe 0ZBn5hA4/CF4l2MRtXhiNMstwxye1kzrpWwGKuiluVZ/NgeXADljWP1EDY62 nXqxYA4jjZdOzhbVUDWUP9sWsizgefWVhBbNWmrfh3uxS54WcBJudhbk1FJv p+38fcTHAmrfPHS4lF5HHa072rIaYQEZ4e9c+BO+UsWuVV6beWYBmvGTe+8V f6Pe64h/OdZtAcsGsrqZCU3UsoBtwjwMSzhfGf/Lr7mJqvpZEBfysIQRI3LU IcFm6qTP0kv5C5bQYsZR2xjRTP2R7sXLiLSE7OP9x5fcWqhP0gRyzZMtwdXz lc9RrZ/U7vqk2o4hS/hxTz2jt6mDGiGpZhDnawVN52RvXefupXZ4uWp1pVnD 7b1hut0KvdQj+oyTbR+I59PF7vFdR3qp3l6D7N1gDSVhT83aInupieDygr3F GlJiZMhKHH3UWHXOZ2kkGvhnbLpXsdxHFQlLtA85RQPKsMQj9ukBqqDxi44i SeL90JGc4tcxTC3wsLz54bkNSD87zr/r/iRVne0PPfTlCZCwcuT6ojJLPYwx Wttu2cOYdUvDfoEFamD1OdNQbUdoiy27Vyi9QLVLCs68QXWEyoYMW6rqAvVG xgf1B/qO8NIksufIsQXqa8WaOy8wR7DT15ikRSxQ46XK4h86O0Lt7usCF+YX qN6/Yz0Xox0hXYiKZXUvEg9rr1tCmx3BrSGlZnvWEjXd74x8OMsJ4r/2rfbh S9Q/rmZBqu5O8LledtfTr0tUsfmDhj/OOoFs3aN40Ykl6oX73JpiAU7QVHWL yaG2THW44HT33HUnQJ9819rfLFNLS7ILQt46gVjukd0xqSvUxePnoxZmnaD0 8eCjucQ1akyh8EyajzNMnxM6djpzjTr8KK/jdIAzyB/VnW8tXqO+PcjzYkuw M1ydjbMq6lijTqYfrL0e6QypKXKXD/Gxoadhe3Htu87gufZNd70xG2JIX37G meUM/7LUs+Iq2JDplHys9W9nEBEZj80qZkcBPwwqjU1dQDbL2a2/nB01l9hu o5i7gKpJyyGJWnbk/Fx3x6ClC+hHwmRoGzuSFag47GfrAj6zsZjZPDvaKPj4 Y7CLCzQ37ucZV+dAvUXqktIBLhAfd+mSyksOZNep9DHruQtIiYt6pVwjIY/x ec3wCReouLtrzSeWhKq8qNcXplzAW9D8lsEjEqIUeN31mHWB6g3X0/tfk9CB JcU600UXCFxmG5arIiGDqE7KHAcDWn+NOj3l5kQNuGp5qygD4tLLreIjOVEA dk6fXZsBAnoX9l8L4ULzP07+dyCIAZlnJysao7iQETkzaGMIA7AnHvTNN7nQ FMN1tj2UATcWGD45j7mQoo+nmG8EA9a/pb3vyuNCX9dPH3twjQHsm/bv3D3D hThGmuJuxTNgZm5RoeP0OnTOkbvm+HsGtLwOFVOz4Earsc2yr/oZsKB3vs/K lhsd32cyLzLIAEoHKyvAgRt9qOq4GfabAXb8mNFnT250mXFlzWqEAT3em0Ls rnEj9l0uQqMTDBg5kD9w7RM3OhGV2fXrHwNW66Zzfu9dj8I5RlX/CDBBYZpp 9YyyAXHwWLO92ceE3+4crc5yG1AmqevW0H4mvBpItJNX3oC4bjLH5LWYoPyz hZmqtQHZp3TJPDrABDU45p9huwFtO2fn7YuYsPfWjif59zegcErY1/ljTNBX nhv8JsSDfHp+NsjbMcHZOTKQg5cXrQyInXYMZoLYzdA1XSFe1ONu43EshAnV HwMjL0ryInejW0kaoUzYzXfu1qwiL2q4WRa/FsYEzjz754P6vOik3cmOO5FM SOHbX10dwoskhznMbl9nwkjesOTdaV70khaXtxjPBG8Bs/ytbRuR4T75My/e MaGCMjO39GsjuhS0abNnNhMoCg92NQ5vRCGTIbz73jOhTKf7TeTiRuRRGPDw cw4ThNzOJg5I8KEOrC+x/SMT3pXHRKTaEFZQnO4rZsJkQIOpShMfulbMk+5W xYSz/Ra9uxr4kUfm+zafLibkJllvvtzCj+Jeizht6GbCqp2N3c8ufoRFzDkm EL7RZNccOsaPjDxkvkIPE9IqTlfX8ggg2ytG3qQ+JvS/Cs5mGQgg6L2v4/Wb Cbaer8MfFQggsf5SgT8TTJC9GEa+ZCmI3kSztwevMYErphiToAuib7dUZycJ jzz/d/3tcUGkxGWf4sLGgvfVF9Z1OQqiY1YHWwzZWXCE8t+S9llBlKYwc4GX xAL3fIuB2euCKLV4ZDx0HQty5+XyXT8LojLpd3qyfCwwvvDZ0VyTjFSk9iaZ S7IgbKE5YK8OGYVsLnLJIZwTNBRLQWQk3MmqEKewQCaK93O/IRkJxCa6dRKe jLNQCrAho+bYck3GJhbc+9g59cyXjKb+26PjuJkFHf/mwmdyyCi7VMJcZBsL zlxSSL6vIYSWkqdkQneyYNOp07pae4VQjehfuUrC1dqvWto1hZCDcGW/oDoL FGeVeLYgIWRoUP78GeEe1o6zbzAh9Cw+kR80WGBhskcL3IUQ9mXPz8ndLNgj rlc3nCyETBJJ1Vs1WdA7E8668VoIvS3vmmcQvt3waU0tQwiZOiaNJBMeizbY dSFHCDmOpG9W1GJByvLRB6tlQmiQWVCnoM0C8V4zJ+EeIWQdGXFaSocF/9Lt 53QowsijVW6+jcqChUVvtx0ywihmuIidgljw98jVbmk5YWREYdXbEp7uya5a VRJGZ7taM5sIj4isTwQtYTRJbo2tPcSCtqDsI/rHhRG94aDU28MsKDThjjeO F0Ynh8dKjxqyoODhJj6dBGFEKm8PDSOcN6gRrpokjI48IHHnEc4Js/PgeyWM 5iit5xSOsiA95x36+pE4D/yHsx1jQcImu2HLFmFkF6Pm+saIBUGjWdonxESQ zLdvtDZTFhyYuIRpUkRQtHttPg9G3G/K0llMRgSl9olNaBP2n5+N/r5NBPGd MKt/RNiHQ+un0V4RtN1VnWFrRuRTotTvgLUI8j68X6TGnAUO+t9yNsWKIEmn 0awYKxboJUypdfOJohrzsdxEWxZcnJ8qCySLIpvdm1TKCOdYTtPFREXRpkeO oQOEt22YCTHdJIoCShIqVY6zYL3vbH2hsigyPMr2K5dwvdn8mXhDUfSBT1Dv ywkWnCCtZFpcEkVJDiJR3+xYcPfUit5YpCgqMM7WmCJcm7/SfPWqKCq/Ulsq aM+Cg16rq3iMKNod1nHDjLBs5xqmliiKPE/t/lZDeDCXY4KnUBQduZW/HT/F Am+39TvLZ0XR6u7gkjuORHz2diZmLIgi020aHlmEI9iz+R8si6JPX2eW6gnf iz85/h+nGAoWppTxOrHgY0VmhoCIGBLxFx2NILwsR1M9uVsM2eLlX884syCq /ZnS9DkxtPu8WfxOBgviTQ7Iy06Ioc1lz0acT7PgkRdV5Mu0GMpesTgeQDjh 3mHOM3/FUGXy7fcxhJ91GPcXroiht5kklSLCaR52L202iqPN4hWKIq4sKLoR LB+jJI48ON+5AuGeWlx+1UUcSYBbJI8bC7ab6m/raBVH8/Xu3109WPBHgTPH q0McMdlDrAIJZ7KV63H1iCOnC6Pl1wnvzTnsqPZbHMXNiAZkEtaTOvw4bE4c GUVs3j5D2H74EHmbkATyn+DKCPBkQWwUdcXTWALFH/V6e/EMcf9i7aa1Ygmk +vj0SboXCwTWf6X2lkqgJ9vqopmE5Sxd0so/S6C6+ouvLxA+Ong9NLpOAvFe HCuKJRzH36kk3CmBHihm7q0nrOYQGqKwLIEK77YE6p1jgRNbuaKptiRK3JOa LevNggo908BHuZJoeio0Ofc8C6wGBJnaBZKo/PibslLCPVcazdqKJdHlbVVN tYQXa09uo3yWRPsRW1cvYVUbt4aHPySRuNRxP/4LRH25X1F4OCmJmuJCm1wI O94r/f5AmYLOt5sHcfsQ82RfVPF+NQry/FjjSiYc+PPoqxYNCrK+Y2IiRfiu TEOwuBYFiWWHLagRrnjVtf2BIQW17b43SCO8o3gp5D6Dglo67WSfE/43sFcl LpGCvIxS0B5fFuzTyWJ79pyC8j3t5XUJe8cqN6enUJDHG4lVQ8LDupsvlWdS 0FzRp7snCbc+WN8yU0JBklOkY+GEPxxrD7fspqC/16v66gh7ZYS1CchKoRxd c+lTfsT8IC29lZKXQsjSspFFeOi4T5TidiliHl8NP0vYYZ2bOlVdCj3ZlF0e RhhzsLp8BkkhvPpvz3PCKmSFXXWOUmjri59hA4RZp5O4fzKkkDXvjrdjhJ8X Uzr7XaVQvLRu0xxhipvA1WUvKTRzp2D9On+i3z8tdKpckkJdmzn5FQjrS55/ vz9KCnUGqC7tIBx2duzq4WgppHrUumcv4Xmp3t0n70ih5eiyWAPCu7ztNpyO k0I6fJKOpoTPVDZ3eT+UQi7yMdtohNNkLHJCnkgh8U+qfXaEBy/URF97JoXW GhfjGYT/B7crDwc= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[100], 0}, {-4.605170185988092, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[100], Log[1000]}, {-179.76227997584644`, 0}}, {{-4.605170185988092, 6.907755278982137}, {-179.76227997584644`, 0}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.502087532534642*^9, 3.502087578890294*^9}, 3.5023556980869484`*^9, 3.502358324047145*^9, 3.5023583685876923`*^9, { 3.502359408157152*^9, 3.5023594366857843`*^9}, 3.5024387963529143`*^9, 3.502438874756399*^9, 3.502439094474966*^9, 3.5024650020348997`*^9, 3.5024650527207985`*^9, {3.5024651793950443`*^9, 3.5024652043764734`*^9}, 3.5024652666370344`*^9, 3.502465766106641*^9, 3.5024660939269657`*^9, { 3.5024665132434*^9, 3.502466534709607*^9}, 3.5024701187307806`*^9, 3.5024703735713935`*^9, 3.502470421989211*^9, 3.502470453255843*^9, 3.502470504995791*^9, 3.502470905430472*^9, 3.5024709615773263`*^9, 3.5024734212184343`*^9, 3.5024735355466614`*^9, 3.5024736395503407`*^9, 3.5024737452023225`*^9, 3.5024738638985558`*^9, 3.5024739098663435`*^9, 3.5024741501249228`*^9, 3.5024742583004017`*^9, 3.5024743229974556`*^9, 3.5024743854795694`*^9, 3.502474578114911*^9, 3.5024747481119585`*^9, 3.502474799824834*^9, 3.502474832473251*^9, 3.5024749216304007`*^9, 3.5024754000378475`*^9, 3.50247549863002*^9, 3.5024763292715025`*^9, 3.502476841147373*^9, 3.5024770110004716`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:0420\:0430\:0441\:0441\:043c\:043e\:0442\:0440\:0438\:043c \:0432\ \:0442\:043e\:0440\:043e\:0439 \:0440\:0435\:0436\:0438\:043c", \ "Subsubsection", CellChangeTimes->{{3.502087612413211*^9, 3.502087620219658*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"c1", "=", "1.2"}], ";", RowBox[{"c2", "=", "118.6"}], ";", RowBox[{"c3", "=", "27.55"}], ";", RowBox[{"c4", "=", "2.32"}], ";", RowBox[{"c5", "=", "0.445"}], ";", RowBox[{"c6", "=", "7.28"}], ";"}]], "Input", CellChangeTimes->{{3.5020876633241234`*^9, 3.5020877039874487`*^9}, 3.502476159431581*^9, {3.5024768275441494`*^9, 3.5024768280901504`*^9}, { 3.5024768783222384`*^9, 3.5024768793518405`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalOmega]a", "=", SqrtBox[ RowBox[{"c2", "+", RowBox[{"c1", " ", "c4"}]}]]}]], "Input", CellChangeTimes->{{3.5020877110078506`*^9, 3.5020877383824162`*^9}}], Cell[BoxData["11.017440719150704`"], "Output", CellChangeTimes->{ 3.502087740497537*^9, 3.5023556981469517`*^9, 3.50235832413615*^9, 3.502358368648696*^9, 3.502359436757788*^9, 3.502438796566927*^9, 3.502438874833403*^9, 3.5024390946939783`*^9, 3.5024650022389116`*^9, 3.502465052793803*^9, {3.5024651794650483`*^9, 3.502465204451477*^9}, 3.5024652667080383`*^9, 3.502465766179645*^9, 3.50246609399997*^9, { 3.502466513358406*^9, 3.5024665348216133`*^9}, 3.502470118807785*^9, 3.5024703736463947`*^9, 3.502470422010212*^9, 3.5024704532768445`*^9, 3.502470505014792*^9, 3.502470905461672*^9, 3.5024709615953274`*^9, 3.502473421443447*^9, 3.5024735355886636`*^9, 3.502473639575342*^9, 3.5024737452323236`*^9, 3.502473863918557*^9, 3.5024739098853445`*^9, 3.502474150155924*^9, 3.502474258363405*^9, 3.5024743230474586`*^9, 3.5024743854975705`*^9, 3.5024745781429124`*^9, 3.502474748131958*^9, 3.5024747998518357`*^9, 3.502474832490252*^9, 3.502474921652402*^9, 3.502475400069047*^9, 3.5024754987860208`*^9, 3.5024763293651023`*^9, 3.5024768412877736`*^9, 3.5024770111096716`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Zeta]a", "=", FractionBox[ RowBox[{"c1", "+", "c4", "+", "c5"}], RowBox[{"2", " ", "\[CapitalOmega]a"}]]}]], "Input", CellChangeTimes->{{3.502087747473936*^9, 3.5020877853071003`*^9}}], Cell[BoxData["0.17994197114707267`"], "Output", CellChangeTimes->{ 3.5020877863931623`*^9, 3.5023556981799536`*^9, 3.502358324177152*^9, 3.502358368691698*^9, 3.5023594367857895`*^9, 3.502438796661932*^9, 3.502438874870405*^9, 3.502439094777983*^9, 3.5024650023239164`*^9, 3.502465052827805*^9, {3.5024651795110507`*^9, 3.502465204481479*^9}, 3.5024652667440405`*^9, 3.5024657662096467`*^9, 3.5024660940329723`*^9, { 3.502466513408409*^9, 3.5024665348716164`*^9}, 3.5024701188717885`*^9, 3.502470373678895*^9, 3.5024704220532146`*^9, 3.5024704533208475`*^9, 3.5024705050587945`*^9, 3.5024709055206738`*^9, 3.5024709616373296`*^9, 3.5024734216724606`*^9, 3.5024735356396666`*^9, 3.5024736396333456`*^9, 3.502473745309328*^9, 3.502473863956559*^9, 3.5024739099233465`*^9, 3.502474150210927*^9, 3.5024742584554105`*^9, 3.5024743231394634`*^9, 3.5024743855335727`*^9, 3.5024745781849146`*^9, 3.5024747481919603`*^9, 3.5024747999138393`*^9, 3.502474832517254*^9, 3.502474921696404*^9, 3.502475400115847*^9, 3.502475498832821*^9, 3.5024763293963027`*^9, 3.5024768413657737`*^9, 3.5024770111564717`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"k", "=", RowBox[{"5.84", " ", "c4", " ", "c6"}]}]], "Input", CellChangeTimes->{{3.5020878019080496`*^9, 3.5020878135877175`*^9}}], Cell[BoxData["98.63526399999999`"], "Output", CellChangeTimes->{ 3.5020878142417555`*^9, 3.502355698213956*^9, 3.5023583242131543`*^9, 3.502358368737701*^9, 3.502359436810791*^9, 3.502438796715935*^9, 3.5024388749104075`*^9, 3.502439094861988*^9, 3.5024650025049267`*^9, 3.5024650528608065`*^9, {3.502465179551053*^9, 3.502465204510481*^9}, 3.5024652667820425`*^9, 3.5024657662406483`*^9, 3.502466094065974*^9, { 3.5024665134564123`*^9, 3.502466534919619*^9}, 3.5024701189057903`*^9, 3.5024703737126455`*^9, 3.5024704220902166`*^9, 3.502470453353849*^9, 3.5024705050937967`*^9, 3.502470905573677*^9, 3.502470961670332*^9, 3.502473421901473*^9, 3.502473535683669*^9, 3.5024736396833487`*^9, 3.5024737453763323`*^9, 3.5024738639935613`*^9, 3.502473909960349*^9, 3.50247415026593*^9, 3.5024742585664167`*^9, 3.5024743232274685`*^9, 3.502474385568575*^9, 3.5024745782299175`*^9, 3.5024747482399626`*^9, 3.502474799967842*^9, 3.502474832546255*^9, 3.5024749217294064`*^9, 3.5024754001626472`*^9, 3.502475498910821*^9, 3.5024763294275026`*^9, 3.5024768414437737`*^9, 3.502477011218872*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["k", "\[CapitalOmega]a"]], "Input", CellChangeTimes->{{3.5020878344489107`*^9, 3.502087849422767*^9}, 3.5024769670083942`*^9}], Cell[BoxData["8.952647580717224`"], "Output", CellChangeTimes->{ 3.502087850144809*^9, 3.5023556982479577`*^9, 3.5023583242491565`*^9, 3.502358368778703*^9, 3.502359436838793*^9, 3.5024387968089404`*^9, 3.50243887495041*^9, 3.502439094946993*^9, 3.502465002594932*^9, 3.502465052894809*^9, {3.5024651795990562`*^9, 3.502465204548483*^9}, 3.5024652668190446`*^9, 3.5024657662716503`*^9, 3.502466094095976*^9, { 3.502466513505415*^9, 3.502466534965622*^9}, 3.5024701189397926`*^9, 3.5024703737451468`*^9, 3.5024704221252174`*^9, 3.5024704533878508`*^9, 3.502470505130799*^9, 3.50247090562568*^9, 3.5024709617063336`*^9, 3.502473422309893*^9, 3.502473535716671*^9, 3.502473639738352*^9, 3.5024737454413357`*^9, 3.5024738640325637`*^9, 3.502473909998351*^9, 3.5024741503219337`*^9, 3.5024742586674223`*^9, 3.502474323317474*^9, 3.5024743856025763`*^9, 3.50247457826892*^9, 3.5024747482909656`*^9, 3.5024748000358467`*^9, 3.5024748325762568`*^9, 3.502474921764408*^9, 3.5024754001938477`*^9, 3.502475498942021*^9, 3.502476329443103*^9, 3.5024768415217743`*^9, 3.5024769688647976`*^9, 3.502477011250072*^9}] }, Open ]], Cell["\<\ \:0422.\:043a. k/omega>16, \:043d\:0435\:043e\:0431\:0445\:043e\:0434\:0438\ \:043c \:0434\:0435\:043c\:043f\:0444\:0435\:0440 \:0442\:0430\:043d\:0433\ \:0430\:0436\:0430.\ \>", "Text", CellChangeTimes->{{3.5020882154737043`*^9, 3.502088277301241*^9}, 3.502476400189227*^9, {3.5024769756196094`*^9, 3.5024769867268286`*^9}}], Cell["\<\ \:0420\:0430\:0441\:0441\:0447\:0438\:0442\:0430\:0435\:043c \:043f\:0430\ \:0440\:0430\:043c\:0435\:0442\:0440\:044b \:0434\:0435\:043c\:043f\:0444\ \:0435\:0440\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430\ \>", "Text", CellChangeTimes->{3.5020879562718787`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Mu]", "=", FractionBox[ RowBox[{ RowBox[{"2", SqrtBox[ RowBox[{"c2", "+", RowBox[{"c1", " ", "c4"}]}]]}], "-", RowBox[{"(", RowBox[{"c1", "+", "c4", "+", "c5"}], ")"}]}], "c3"]}]], "Input", CellChangeTimes->{{3.5020879608361397`*^9, 3.502087978973177*^9}, { 3.502088145177684*^9, 3.502088158383439*^9}}], Cell[BoxData["0.6558940630962399`"], "Output", CellChangeTimes->{ 3.502088159997531*^9, 3.50235569828496*^9, 3.5023583242841587`*^9, 3.5023583688207054`*^9, 3.502359436865794*^9, 3.5024387968549433`*^9, 3.502438874988412*^9, 3.5024390951000013`*^9, 3.502465002680937*^9, 3.5024650529278107`*^9, {3.5024651796540594`*^9, 3.5024652045774846`*^9}, 3.502465266857047*^9, 3.502465766303652*^9, 3.502466094128978*^9, { 3.5024665135534177`*^9, 3.5024665350106244`*^9}, 3.502470119108802*^9, 3.502470373777647*^9, 3.5024704221652174`*^9, 3.502470453421853*^9, 3.5024705051648006`*^9, 3.502470905677683*^9, 3.502470961741336*^9, 3.502473422618911*^9, 3.5024735357486725`*^9, 3.5024736397883544`*^9, 3.5024737455143404`*^9, 3.5024738640705657`*^9, 3.502473910036353*^9, 3.5024741503759365`*^9, 3.502474258904436*^9, 3.5024743235864887`*^9, 3.502474385635578*^9, 3.502474578309922*^9, 3.5024747483399687`*^9, 3.50247480010285*^9, 3.5024748326042585`*^9, 3.5024749218004103`*^9, 3.5024754002406473`*^9, 3.502475499004421*^9, 3.502476329474303*^9, 3.502476841615374*^9, 3.5024770113124723`*^9}] }, Open ]], Cell["\<\ \:041f\:043e\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f \:0432\:0440\ \:0435\:043c\:0435\:043d\:0438 \:0444\:0438\:043b\:044c\:0442\:0440\:0430 \ \:0432\:044b\:0441\:043e\:043a\:0438\:0445 \:0447\:0430\:0441\:0442\:043e\ \:0442 \:0432 \:0446\:0435\:043f\:0438 \:0441\:0438\:0433\:043d\:0430\:043b\ \:0430 \[Omega]z\ \>", "Text", CellChangeTimes->{{3.502089003918801*^9, 3.5020890067279615`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tb", "=", FractionBox["1", "c4"]}]], "Input", CellChangeTimes->{{3.502088980599467*^9, 3.502088985985775*^9}}], Cell[BoxData["0.4310344827586207`"], "Output", CellChangeTimes->{ 3.5020889868678255`*^9, 3.5023556983179617`*^9, 3.5023583243191605`*^9, 3.5023583688617077`*^9, 3.502359436894796*^9, 3.502438796901946*^9, 3.502438875026414*^9, 3.502439095208008*^9, 3.5024650027629414`*^9, 3.5024650529608126`*^9, {3.502465179731064*^9, 3.5024652046074867`*^9}, 3.5024652669360514`*^9, 3.5024657663336535`*^9, 3.5024660941619797`*^9, { 3.5024665135994205`*^9, 3.5024665350506244`*^9}, 3.5024701192218084`*^9, 3.5024703738113976`*^9, 3.5024704222002187`*^9, 3.502470453456855*^9, 3.5024705052018027`*^9, 3.502470905712685*^9, 3.5024709617783375`*^9, 3.502473422882926*^9, 3.502473535780675*^9, 3.502473639838357*^9, 3.5024737455833445`*^9, 3.502473864109568*^9, 3.502473910073355*^9, 3.5024741504299393`*^9, 3.5024742590024414`*^9, 3.502474323674494*^9, 3.5024743856695805`*^9, 3.5024745783469243`*^9, 3.5024747483899713`*^9, 3.502474800166854*^9, 3.5024748326322603`*^9, 3.502474921836412*^9, 3.502475400287448*^9, 3.502475499066821*^9, 3.502476329552303*^9, 3.502476841708974*^9, 3.502477011374872*^9}] }, Open ]], Cell["\:0421\:0430\:043c\:043e\:043b\:0435\:0442 \:0431\:0435\:0437 \:0434\ \:0435\:043c\:043f\:0444\:0435\:0440\:0430", "Text", CellChangeTimes->{{3.5020882922310944`*^9, 3.502088300392561*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Omega]z", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086292714729*^9, 3.5020863559183435`*^9}, { 3.5020863960746403`*^9, 3.5020864160587835`*^9}, 3.502088337500684*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}]}, { RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020864083853445`*^9, 3.502086416956835*^9}, 3.502088339640806*^9, 3.5023556983529634`*^9, 3.5023583243571625`*^9, 3.5023583689037104`*^9, 3.5023594369227977`*^9, 3.5024387969479485`*^9, 3.5024388750654163`*^9, 3.502439095318014*^9, 3.5024650028559465`*^9, 3.502465052995815*^9, {3.5024651798180685`*^9, 3.502465204638488*^9}, 3.5024652670280566`*^9, 3.5024657663646555`*^9, 3.502466094195981*^9, { 3.502466513647423*^9, 3.5024665351046267`*^9}, 3.50247011925681*^9, 3.502470373843898*^9, 3.5024704222382207`*^9, 3.502470453492857*^9, 3.502470505236805*^9, 3.5024709057476873`*^9, 3.5024709618133397`*^9, 3.5024734231499414`*^9, 3.5024735358136764`*^9, 3.50247363988836*^9, 3.502473745647348*^9, 3.5024738641475697`*^9, 3.5024739101123576`*^9, 3.5024741504899435`*^9, 3.502474259105448*^9, 3.502474323762499*^9, 3.502474385704582*^9, 3.5024745783859262`*^9, 3.502474748441974*^9, 3.502474800221857*^9, 3.5024748326602616`*^9, 3.5024749218694134`*^9, 3.5024754003342476`*^9, 3.5024754991604214`*^9, 3.502476329645903*^9, 3.5024768417869744`*^9, 3.5024770113904724`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Alpha]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"c5", " ", "s"}], "+", "c2"}], ",", RowBox[{"s", "+", "c4"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086816999716*^9, 3.5020868435512347`*^9}, { 3.5020870184622393`*^9, 3.5020871299286146`*^9}, {3.502088355743727*^9, 3.5020883786730385`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"118.6`", "\[InvisibleSpace]", "+", RowBox[{"0.445`", " ", "s"}]}]}, { RowBox[{"2.32`", "\[InvisibleSpace]", "+", "s"}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.502087095202628*^9, 3.5020871305366497`*^9, {3.502088374013772*^9, 3.502088379009058*^9}, 3.5023556983869658`*^9, 3.5023583243941646`*^9, 3.5023583689437127`*^9, 3.5023594369497995`*^9, 3.502438796995951*^9, 3.5024388751054187`*^9, 3.5024390954280205`*^9, 3.5024650029419518`*^9, 3.502465053028816*^9, {3.5024651799080734`*^9, 3.5024652046764903`*^9}, 3.5024652671180615`*^9, 3.5024657663966575`*^9, 3.5024660942309833`*^9, { 3.5024665136944256`*^9, 3.5024665351536293`*^9}, 3.502470119403819*^9, 3.50247037396015*^9, 3.5024704222672224`*^9, 3.502470453526859*^9, 3.5024705052718067`*^9, 3.502470905782689*^9, 3.502470961848342*^9, 3.5024734235459642`*^9, 3.5024735358486786`*^9, 3.502473639940363*^9, 3.502473745715352*^9, 3.5024738641835723`*^9, 3.5024739101503596`*^9, 3.502474150555947*^9, 3.5024742591974525`*^9, 3.502474323853504*^9, 3.5024743857415843`*^9, 3.5024745784239283`*^9, 3.502474748491977*^9, 3.502474800292861*^9, 3.502474832691263*^9, 3.502474921899413*^9, 3.502475400365448*^9, 3.5024754992540216`*^9, 3.502476329723903*^9, 3.5024768420521746`*^9, 3.5024770114528723`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Theta]", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "s"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871437744064`*^9, 3.50208716481461*^9}, { 3.5020872668724475`*^9, 3.5020872685785446`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5020871654136443`*^9, 3.502088385246415*^9, 3.5023556984209676`*^9, 3.5023583244301667`*^9, 3.5023583689827147`*^9, 3.502359436976801*^9, 3.5024387970429535`*^9, 3.5024388751434207`*^9, 3.502439095526026*^9, 3.502465003028957*^9, 3.5024650530628185`*^9, {3.502465180002079*^9, 3.5024652047084923`*^9}, 3.5024652672070665`*^9, 3.5024657664286594`*^9, 3.502466094262985*^9, {3.5024665137424283`*^9, 3.502466535200632*^9}, 3.5024701194748197`*^9, 3.5024703739939003`*^9, 3.5024704223072224`*^9, 3.5024704535608606`*^9, 3.502470505307809*^9, 3.502470905816691*^9, 3.5024709618823433`*^9, 3.502473423779977*^9, 3.50247353588068*^9, 3.502473639989366*^9, 3.502473745787356*^9, 3.502473864222574*^9, 3.5024739101873617`*^9, 3.50247415061195*^9, 3.5024742592944555`*^9, 3.502474323941509*^9, 3.502474385778587*^9, 3.5024745784719315`*^9, 3.50247474854498*^9, 3.5024748003938665`*^9, 3.5024748327202654`*^9, 3.5024749219404154`*^9, 3.5024754004122477`*^9, 3.502475499347622*^9, 3.5024763298019032`*^9, 3.502476842130175*^9, 3.502477011515272*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]v", "=", RowBox[{"{", RowBox[{"c3", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871754712195`*^9, 3.502087221239837*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"27.55`"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.502087194501308*^9, 3.502087221840872*^9}, 3.5020883918537927`*^9, 3.50235569845597*^9, 3.502358324466169*^9, 3.5023583690227175`*^9, 3.5023594370048027`*^9, 3.5024387970889564`*^9, 3.502438875183423*^9, 3.5024390956250315`*^9, 3.5024650031189623`*^9, 3.5024650530968204`*^9, {3.502465180095084*^9, 3.502465204740494*^9}, 3.5024652673020725`*^9, 3.502465766460661*^9, 3.5024660942969875`*^9, { 3.5024665137914314`*^9, 3.502466535249635*^9}, 3.50247011965683*^9, 3.502470374027651*^9, 3.502470422349224*^9, 3.502470453596863*^9, 3.5024705053428106`*^9, 3.5024709058506927`*^9, 3.5024709619183455`*^9, 3.50247342400499*^9, 3.5024735359146824`*^9, 3.5024736400393686`*^9, 3.50247374586236*^9, 3.5024738642595763`*^9, 3.5024739102253637`*^9, 3.5024741506679535`*^9, 3.502474259390461*^9, 3.502474324031514*^9, 3.502474385813589*^9, 3.5024745785139337`*^9, 3.502474748592983*^9, 3.502474800492872*^9, 3.5024748327482667`*^9, 3.502474921977417*^9, 3.5024754004590483`*^9, 3.502475499581622*^9, 3.5024763298799033`*^9, 3.502476842223775*^9, 3.5024770115932727`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Theta]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020872461072598`*^9, 3.5020872800412006`*^9}, { 3.5020873135241156`*^9, 3.502087319207441*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"118.6`", "\[InvisibleSpace]", "+", RowBox[{"0.445`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], RowBox[{"2.32`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020872724027634`*^9, 3.502087280702238*^9}, 3.5020873204825134`*^9, 3.502088395226986*^9, 3.5023556984889717`*^9, 3.5023583245021706`*^9, 3.5023583690637197`*^9, 3.5023594370308037`*^9, 3.502438797136959*^9, 3.502438875219425*^9, 3.5024390957230377`*^9, 3.5024650032019663`*^9, 3.502465053130822*^9, {3.5024651801850896`*^9, 3.5024652047724957`*^9}, 3.502465267389077*^9, 3.5024657664906626`*^9, 3.502466094330989*^9, {3.502466513838434*^9, 3.502466535299638*^9}, 3.5024701197538357`*^9, 3.5024703740959024`*^9, 3.5024704223882246`*^9, 3.502470453630865*^9, 3.5024705053728123`*^9, 3.5024709058856945`*^9, 3.5024709619533477`*^9, 3.5024734242350035`*^9, 3.502473535948684*^9, 3.5024736400903716`*^9, 3.502473745929364*^9, 3.502473864296579*^9, 3.5024739102623663`*^9, 3.5024741507249565`*^9, 3.502474259490467*^9, 3.5024743241235194`*^9, 3.502474385848591*^9, 3.502474578553936*^9, 3.5024747486579866`*^9, 3.5024748007798877`*^9, 3.5024748327772684`*^9, 3.5024749220124197`*^9, 3.5024754004902477`*^9, 3.5024754996752224`*^9, 3.502476329957904*^9, 3.502476842301775*^9, 3.5024770116868725`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Delta]v"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020873377695026`*^9, 3.502087345456942*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"118.6`", "\[InvisibleSpace]", "+", RowBox[{"0.445`", " ", "s"}]}], "27.55`"}, { RowBox[{"-", "1"}], RowBox[{"2.32`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.50208734629399*^9, 3.502088397834135*^9, 3.502355698522973*^9, 3.5023583245381727`*^9, 3.502358369105722*^9, 3.5023594370588055`*^9, 3.502438797183962*^9, 3.5024388752584276`*^9, 3.5024390958200426`*^9, 3.5024650033049726`*^9, 3.5024650531648245`*^9, {3.5024651802720947`*^9, 3.502465204802498*^9}, 3.502465267473082*^9, 3.502465766525665*^9, 3.502466094361991*^9, {3.5024665138864365`*^9, 3.502466535348641*^9}, 3.5024701197908373`*^9, 3.502470374193908*^9, 3.5024704224212255`*^9, 3.502470453660865*^9, 3.5024705054078126`*^9, 3.502470905919697*^9, 3.5024709619893494`*^9, 3.502473424633026*^9, 3.502473535982686*^9, 3.502473640142375*^9, 3.5024737460891705`*^9, 3.502473864333581*^9, 3.502473910302368*^9, 3.5024741507799597`*^9, 3.5024742595914726`*^9, 3.5024743242125244`*^9, 3.5024743858835926`*^9, 3.502474578591938*^9, 3.5024747487099895`*^9, 3.5024748008778934`*^9, 3.50247483280527*^9, 3.5024749220494213`*^9, 3.5024754005370483`*^9, 3.5024754997532225`*^9, 3.5024763300515037`*^9, 3.502476842379775*^9, 3.5024770117648726`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"W", "=", FractionBox[ RowBox[{"Det", "[", "m2", "]"}], RowBox[{"Det", "[", "m1", "]"}]]}]], "Input", CellChangeTimes->{{3.502087352433341*^9, 3.502087360735816*^9}, { 3.502087393166671*^9, 3.502087413468832*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"63.916`", "\[InvisibleSpace]", "+", RowBox[{"27.55`", " ", "s"}]}], RowBox[{ RowBox[{"121.384`", " ", "s"}], "+", RowBox[{"3.9649999999999994`", " ", SuperscriptBox["s", "2"]}], "+", SuperscriptBox["s", "3"]}]]], "Output", CellChangeTimes->{{3.5020873971628995`*^9, 3.502087414114869*^9}, 3.50208840089631*^9, 3.5023556985579753`*^9, 3.5023583245751753`*^9, 3.5023583691467247`*^9, 3.5023594370868073`*^9, 3.5024387972299643`*^9, 3.5024388752964296`*^9, 3.5024390959150486`*^9, 3.5024650033909774`*^9, 3.5024650531988263`*^9, {3.502465180437104*^9, 3.5024652048344994`*^9}, 3.5024652676510925`*^9, 3.5024657665566664`*^9, 3.502466094394993*^9, { 3.5024665139334393`*^9, 3.5024665353976436`*^9}, 3.5024701198268394`*^9, 3.5024703742879133`*^9, 3.5024704224612255`*^9, 3.502470453700865*^9, 3.5024705054448147`*^9, 3.502470905953699*^9, 3.502470962026352*^9, 3.502473424863039*^9, 3.5024735360166883`*^9, 3.5024736401913776`*^9, 3.5024737461731753`*^9, 3.5024738643705826`*^9, 3.5024739103393707`*^9, 3.502474150835963*^9, 3.5024742596914783`*^9, 3.5024743242915287`*^9, 3.5024743859205947`*^9, 3.5024745786329403`*^9, 3.5024747487649927`*^9, 3.5024748009378967`*^9, 3.5024748328332715`*^9, 3.502474922086424*^9, 3.502475400583848*^9, 3.5024754998468227`*^9, 3.502476330191904*^9, 3.5024768424577756`*^9, 3.502477012076874*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Step", "[", RowBox[{"W", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.502088411829935*^9, 3.50208842012941*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3c81d8fx42SiIxuRfZVijS11euESpQiIjSokCJ8ZaVNUspIUhqUhEQJ RZJVSEb2+Lj3Gte99t7Kz++vc16PMx7vx+P9fL0e5yhaXzQ6y8fDw7Oel4fn /+Pzq9YC68/c2zU75bm+9szO/EqFA6YK58Bjx+/3ZFgBMz+zbikoeIIn9NSt 6i4C0ZC0D0J1N3H9rVt86T8jPM++Lz9XwR8829QTXepOYXXfmQcztoHgiTeo tdxtjybRF/+ma0Og0MTQcmpwgXLM/M2TU4+gkB/lFh7miQs7LzmMyT/B4aBM nZnY6/hUxYoe1n6GUwfHS5/N8cXk+QPUgO1LXFdLkDWk/BHJS/mP7YmCE/fF QtU1gdApCV4+WvsKh3W+CizwDgE3fF/O8LlocEMlro1FPELAmb+WQ1NvEPTN OPLTSDgqp+xC++XjoKEkc7p9ZSTcCuTW9X2Mh2tPZU/5yleQflhV3KOdgNjP z6xltKNhrUr4u2yTUCXz+qNofiw8EoTTB2uT4SjsoXjO+SP0QtoFBiM/oW7V iGFSeTJkPHKMB86lwCnSa0Zhewqytd37+6ZS4WV+/RRj1WfMa2xR6ZFPh/Ua 65oap2+oy/52qZubDmprqE0E7TviY8Lzuj5mQLRLYzLgVDYMXAxOdmpnwiI5 rGgnLRdh8zPCOLbfcd/CPlHu+Q9IPCvkG6jNha5EwNes4d+YEk2Lc9LMw7ad y28ubylB243Xh/sj8/DiS6yCVVkp0myvvug7lw+OfW3BbuNymG/U2N479QNS 9zwMe1QqEPXrpXOXfBGEzjhtDoiuxnB4qiozoAjauy1uH1hSg722xa0VE0UQ OJnG1LpTg27+MZOMyl8IzHv90P1MLbbuNNju7/cbOVe+ZH7nr8c94TND3rN1 VSR7feKerQej3jPByaoEF+qyMhN+1MPH7Y2c2Y5S5HqnPS2+0oDypGk+lb4y +IzEBs4ta4QE5p8QWVOOR9XvhyNlKOxYEbrd70w5TF5Fh1yxpfBgOG7I6085 zBIq9JqHKXxp1CgfnvcHUeY7T53Y0oTm3O8Jjrv+4AXrdpSgexM0gqvPWr/7 g31dB3829jThhMcpLar5Dw4uTknlW86A38kuuaNLK9BtW9xidIyBD3vdpsoM KiChSM8tuctAgzpv3X7fCgwndGZcSmeAnxaQkve1AhrbBpUM2Aysnl4cvHNw Vu+z3W4hysS1X6v11p+shHdEfv9KMyZiP35e8e5RJV6GDHqOejBREa7Fv/x3 JXrfU94Sj5mYulbCfMFXhfLuDh/fZCaUbc0yl26rQuQTzQ6zYiYMDFrDQy5W 4eru2p9hzUy4b3K8tCCmCvMLgyf3jzARKTNheJuqwrvXTiLgZ+EXv88aHslq BKdnfHkpxMJwp6iw1/5qJMuaepWIsSBb8YQzdK0a7lvcFMpoLOxNV853SKuG tDir8J0Ua5bjpEhOdzUOlF9uspdh4anf9itW9BpI1xWKLZJjIc/xx7HGYzVY N65nnjSru00ObzYJqoG7SNegzqxevLNRouxnDTa7HzRsmj1PlG36dP/WID9X fsUNaRbOCQ8U526sxZreE2bblrAQMng5VtO+FvKRj3kXSrKQWS/gmxZZi4IP ivbCoiy0ZwdbrautRZyl2dytgiwsjJXZFS9Sh3i3cocXvCxsDXwrraxThxU1 y/KChpmwdtsw9tyrDv9y/vO+1sZEwPFvlUs+1kH9duqkTCUTqTq6H4I5dZhp l7O6ks2EoOSJc77G9Uhmm2+pm+3Hhknunpm79fgUZBgxdYMJi+b/lDxz6tFx aDx743kmEpP8Gy+saYB1hhBXYwcTnRKdAXpWDWg4vW19NZ0JFTe9XStDGxCg ulOtT3i2P5rCUa0TDRgtiRKqbGAgpCjAxvxHIz57HA5cdYmB0tU9S7aON+LX f5YfbSwYEA46WERTo3Do5qRD5G4GfI6Krv4TREG2SIroijLg1ho4sM+yCRt0 H0RJxDcheW//q+WBTRj8Jb+WGdyEvrjDxvy5TSgY9d8i79UEOyfxz1kqDFxb YdO19kAToiud7Z6ZM+Chd7RFevOsXzZXSHndZ6BH9iD7vUITzP+GeG8aYuC4 UTFzeoxC2KkhdckVTExIfzha3kahMu8Is3+W6/t9kZVeFRTEVFKCSu8x8XWr BH1eDoUDdxdpJWQxsbzDMeHaBwp3elyH/AeYiFmt6dQbScE61r5iowQLlfes BI6HUOBpkH73So2FlNBHz6p8KLwULr4lvoeFI6J9w8c9KOzaedny+gkWaj4+ PcPrQIFyVNvU587ComOpFT+tKXhFNoqcCJ7lxE/vc+oxCksr7rX/jmdhjpq7 dLUhhTR+ze878lkotfzwUE2fgvGm7sfxTbMcjqrv/76HwqDNMyepMRac4zz6 Hu2mEBx+YP8dsWYMGy8rStlFYd2vacWxVc34sss9RmEnhdKphMmz2s14XJ7B btKkcEH9eGWVZTPuOk269M+uC50USdB2a4YO7/lCC0IhNuibT3JgMxyCvvUq 6VDYm+twXDGuGSeTIq7o7qfQNiS7OSi3GUJd2s9KD1G4tbxUdKaxGaVle/g+ m1JQMr3KcRhpxn2G5TifFYXsO2uyKdEWtJWfO/bpPIUTGYxw/ZUtML/l/7DQ ncJ01wPnjN0t+FStG6flS+GpLPRWWbRAunh4g2Ioha2H+pTCXVvwn7rAqdPR FC4lH6q69LYFYaGmJ0WKKCxqm0loy27B/OgXIc5NFJJpH3yPNLTgYmTbmg1D FHo9xLasF2mFs2K/xjelJgTEZy+MXNGKnMPX/l3XbIIq5cQVJa14drB5+KFp E2zx50m3SyvSV+w6EjbLJ8+r0YzGe60Y9zRRZiQ1IXyODPUruhUL/eK2Hy1r QmGRjVxcTStCv4pa5YozsNJ4+tXZ7W1QurXob8drBrLTFPONj7TBY+OT87Ri Bsyk9rG1L7RBb/oQm8xye4cRrKL0og0a3TkPL+9lgmunksDgZSPzZ2Vx4hgT 14sPlJRIs6Gx+9+NubN5s3SNS2/mRjZWLinhf6TKgu5Q5rqIs2wkN89/UGDO QtwVo1TTIjZcHduP8H9nwT7kSlZ5UDvoh1QuzIQ0g2/kFfN7XDvYW+Z81Uxs xlPTQp6k3HbsEWm3f1TUjF8yktr3h9vxZmPzCT+eFqi9jS3Yb8bB7d8GrsOO Lej+WlmeK8+FmLeWwWG9VvjITQx83MqF/YDMCv2zrZC5IScZZcgFo8gpRuF6 Kw7sPWdy7RYXrn6oOJjaivfl/+p3cLgo01PWNJFtgyN7VWtKYgfasow87ze3 gXWiXjCnqAPBpTsefp1sw5G6O2tK2jrQOLZyxl+Sja3FHE+2dCf+yJd8/qfN Bv/HN2KL/TrRtkhaQDySDTdVk81KrzqRwbzROz+NDe7rOZZrvnViEZW74lEx G6Vhp9/uHeqEaPSRoBMjbIR7K+5yP9mFXtV11vHa7RAaLT99y6sLWlZWuYpH 23Hl4nX/wEdd2GP6LkzFrh3W1syqt8VdSI+6HMK8247Vus/P123pRrqtSczC 4na8yDkQ3GbUDdvoIhvBhnaI75hO63fohuro1Q2PuO0YVbfgmx/djRXOHbuc 5nCQIyn1ZJtYD3QklVXMtnCgcb8wa49aDySmmo1ktDmIEfBoM9zbAx9DtfU3 DTgImKhZa+/dA2InUb/jDAf/XG6buD3uQey8wr2hjhw4d2+6fDO5BwoRou8f e3BwlBn68ym3B4ZntofG3eOg0EynO4a/Fw46ZZbfQjnYUTEk/kmuF2r3xN7d fs6Bwg+j48XGvdB6rSG/J5GDznix4ansXqw12HYo7zcHlsrZUoJUL965fk6r quSg7PlFLBrrheHdUKdPDRzMpuvd1ep9KKxb4cTmcHDNLUDx+JM+7BWtjnHl 4UJI0UeFubUfXt9EFwqrc1GoGbz26p5+6GlyIiQ2cHHb7MUWWaN+uHN1f0pt 4YIv6Ms+i/P9+Pr9ZtS63VxM/uu2rX3ej8OJBvtzTbj4Ij150S1+dv88nmJB Cy7cNs/zoH3ux9nFoYZWp7gYdFC8c6S8H4mJsRWHz3PRRZnElvENoP6pT5jV TS7ix60/OC4cAL294KbTHS7sFjl9EZEZANvJviXyARdt+ncL9TcNQEppIvJC BBdURha3wHYAPhb2ao1pXDytKe63cR1AMOauVsziwmywbnzujQFkBgbrhv7g omrVkKDO0wFIb/V2EKjm4ne4yqrs3wPgHlr2c/MoF3dTNNafrB+AnYv0Fb4Z LnTLd2/7xx7AmtENmXyCHcifZ7lfc2YAHyz2aL6W7kCmW9C5L+sH8VDlnYmz Vge8Qp47m+4axCIhwcbeAx3YmhjvOao3CGP6jfHXph1IYef7a5wZhKl4BVId OvDeeCLuQ9jgbH2C+1yedeCCk0DyodeDYD2O0X8X2wHVAMmM3qRBXL11vkQ6 tQMxeeq/VhcNYsDQ+FFEaQdebLDujJ0ahFaD9wbanE48ECtWjTo1hI4yXtM9 Hp1I3yKbauA4BNe4JV+a78z68sRFTF8ewm9RO3rSk07seC9pbPp4CLofItVq v3aCu9/yikjpEH586Vm9jq8L2rd6yjx3DMPTKFP93qzvxkcWXjJaPIK796Su qP3qBl3WemaGPoI0ddOR4KZuGOik+L9fP4KHWvbmA/3deBNi9kLw4Aiiv+Rc Dl3SA6O1UQVZt0ZQIHaAZ/eZHry32yCtNjCCVU7J5lMTPbBuNP7O/3sUX66e t45Z2AehiGYH5/pR+Cit7H4g34dkc0cZZvso2pPElhqv7QN/g59nBu8Y+KVa Frga9CG6LmOj85YxLNN8xyt8rw/t1QqxjFdj+KHEHs762wf78u6gdM9x/M0T 891v0w+JIE+o+I3P/rP8Vx670I+MQwK9oaHjOL3UQ/ukSz+Ey+T1nZLGIfRn LPfw1X4klBjNVWGPY4dXvk3No370/vriGXp4Al95zj5oyOuH8w8f64sqkxD3 GhxbKT+Aj04Ljizd/xfp/nsO2iUPIury+c51pjxks+gqjSORw7j5ctpwuJuX nJt3bsp66yh4Klkk04ufTF8Yqv1bP4YVrjYexqpzSWbl5yda8RNoG3l8VPib AFlVo+yTqD8FPbb9lRBnQSL0qlEvYulfGLQFqcnJCZG00Sc+xU3/0Jlnfb3w vTB5FRBYsJ/wkDXiNbLaJ0VIt2SM/bQyLxHCiBU1JEqeHbm5YeUkL9nXYz6m ZCJGinltj35i8ZG63DO85qvFycjLcP27efwk9U7+CYURccKZPxIxHDaH2My9 xCotlSATVTrHlLznktMul1MXPJUkz7rP5+wwEiBrbdVKD1gtIvfrcqMXKM8j ZRKrhS9toxHasq7OhHmC5GvizYjV/ItJzNxV+gqUILnMq3r4d9NiIp3t/tY8 dz4Rorx0HVOWEPcTSgano4UIO0Yx9KX3UvKdk6K81V2YhK6UmpNuIkWEDCyn 6iwWkKCnNgVWCtLExdeAtWe9CDEPPV66gCNNgvVv1lzlEyXjOm8mXmYtI8zk In1f9uxLg63lkesnQ0jgFinT9IXk1c71y0qsZMmxmS2ulw+Jkfe+l8Rt1eWI ol7wjw8ZYsTP5LQ+/4gc8V+otvw3XZxsoqLi/ErkycU7c/xKH4mT8FUR70v0 FUh/2dDJzTwS5Fr2/XD9dAVS871Kx/c/CXJwmcmbX8qKZGomdXlGmwTZ7Vhg Ie6vSH7IdF03NpAkL2WslX+PzOrSc23V2ZJEOe9tmIGFErH4aJCTqbaIBKnn qlZkKZHNz/8+8w9dRGyG5vwpUqUTdYhf3ylAI9YfBxX8A+lk84U1TUedaOTC zSPTesF04r1B9sU6Fxq5dCSldsFDOrk0LXxSyJVG7oxcehAURiejER2sb+40 krhtYurxczpZsOBNm/I1GpnImamJeUcnEjky3YP3aSSoYsH9/AI6+R69cOrB Oxp5+trB7nbR7P3j/77avaeR166l2rrFdEIO93prJdFI2uKgyeJSOrkiXPJv JJlGKHNJu8pqOlmYeJfveAaNqLRKabe00sm1uwJCakU0si7FSy6aTSd14qO/ 5hTTyHbfxomzHDqximDfY/ymkQMqzz90dNKJW0q+SEg5jbicV5AbGKATxuRN 8YlaGvHWvDGRPEQnrYEuFRX1NOIr0lLlOkIn08utHyY00kh40ut74+N00m68 m3aKSSOvrs+xzZikE5eedTXbmmnkneFZLe9pOvG9rfBYspVGUpR+yu76Ryd8 CmJmPW00kjW0YmI28MiP9JmlBe008j/7N3+X "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 5.475368872268921}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.5020884331011515`*^9, 3.5023557055283737`*^9, 3.5023583314855704`*^9, 3.5023583753810806`*^9, 3.502359442941142*^9, 3.5024388055614414`*^9, 3.5024388825008416`*^9, 3.502439112635005*^9, 3.502465020447953*^9, 3.502465060278231*^9, {3.50246519365986*^9, 3.502465212659947*^9}, 3.5024652765225997`*^9, 3.5024657758549986`*^9, 3.502466102338312*^9, { 3.502466524319022*^9, 3.5024665431400843`*^9}, 3.502470129802271*^9, 3.502470382511217*^9, 3.5024704309391384`*^9, 3.5024704611523314`*^9, 3.502470512726143*^9, 3.502470917649537*^9, 3.5024709700337906`*^9, 3.5024734377227635`*^9, 3.502473543295487*^9, 3.502473650385747*^9, 3.502473756019114*^9, 3.502473871460983*^9, 3.502473917963804*^9, 3.5024741610195427`*^9, 3.50247427751807*^9, 3.502474340248019*^9, 3.502474393942031*^9, 3.50247458611275*^9, 3.5024747568694315`*^9, 3.5024748108108463`*^9, 3.5024748410931263`*^9, 3.502474930378875*^9, 3.502475415949875*^9, 3.5024755151504498`*^9, 3.5024763323447075`*^9, 3.5024768442205787`*^9, 3.5024770138552766`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BodePlot", "[", RowBox[{"W", ",", RowBox[{"-", "3"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.502088495859741*^9, 3.5020886108253174`*^9}, { 3.502088861436651*^9, 3.502088868594061*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtmHk81N/3x8eMfR9kMFlm5k0o5WMpIvemUJHdaJFQ9ElZKkvZQpZKSkiS pYUkS59UpCynQtpUUsoekqVkGfv2nd/j8fvrPp6P+3ice855vc754zI8/Ow9 ySQSSY+HRPq/k6OaG3f+Jh3Oq6zUG1hvie9YKdfrZtFh1/QuAx0dS7zrRAZf RzodxkevGIdpWeIqSIpZl0SH8p2SZpKEJY7bGx7dHEEHzmN+tgHVEstfZkco udBBOH4u+OzwDmyyIBhUKksH8dOkSvUbO3B8k49na4ICDHMyth4W2oFVD90v b3SVh40N/qyLL7bhYOHRtWVmckD1ei3ictkCm+0p3sjQocHvVvEMNS9zrJTc U6EtIAvbQw1ErjDMcOE3WVfdURlgOR27WTS+BW8VeBnY+lwaJOqs7P69Z4p3 9Qwz+K5JQY2/GZ3x72as8k56ghlDhQU2+9YZI4w5WQ83/HSWhH1J/Ha04U14 diHXVP+0OIRQ9pEizhthHlq7Sf5uUbD6Mzv9U98Qq/BQmB58wvDCR8Q/v2Q9 zhdUt6F8F4CO49Q/TfZ62Kzb+MCfcD44ekHPK6L2H9wmaXmjU4sC41cU7Gdj 1uLvrs6ryvh4gPEhTT37mwZum72jWbxvsaaoQFdA/zWBm/2vZzxdnqmp2DbU cVNaBc/H+33bvZVTo2F7IlGLJIuZt45+FDf5W9M6ztw6jwXxSME4jZLSX/Nf R8/lm2EDSKPPb0p/T2vNiAxVpWtptsan5qu89vXnNS07j6Zs5RWHpYpMjWvv AS0PUtmplbLQmTIiM+TxHAnrHxPe3y4L1T6YZDTzHDXQ1fvlFmQhgtH3tZ35 Ek2qeBftNqLB0tnVMSon65B5eFq2aAWXnZ925jPfIFfnwyaMB3KwPDe8ve3Z J/TIUVzZKkUBltOFlgcl25BgWLZLnbwSmL44XniF3YZcQn+erNFRgpjhNufN mW3orr2lbJ6lEgiblPyXvqodJSUfCtcJVwLZXnsPC5MO5KIomuXQpQRrtTLr co90IdW7x40zc5Thvhutfl3vD+S9S+P7t3gVsJ20zOTj70H92jS92WQVGD8X ebxNvQeZfhVfEMtWAf2Hg0rxvj2Ilbz6nswjFXjGVxncOduDPOtEPa50qcCr e24aiZJ9KMlwh99ePQZ0cQouDG3qR8n1nvOPmhkQecGvufBAPzo2sVFTsYsB KoT+Sp9z/Ug919smaJABbg5Q+Le5H/GERe6cX2RA94OvbzhHfqFQdfsP1mpM 6PalCC1fG0A5332BGsCESP7XtlAzgD7lKXWcCWeCSvbF9KifAyhkTH9DfxwT 3N7Lq/P+M4iORWUGhV5jwo/V2hZCDYOoGYkP9lcxoWfAJVZ6aggl5SkOlVNY EB3JfN9MH0YmbWl31EVZwJQbkEnbPIxS2m7/PSvDAg+LE7lyicOoypqyQFNl QU/euZeKxG8UP23f6GvGgl6PMh51+z/oQ2Nw72Q0C/raJSKMS/6isVedHMUx FnA6zRx2fv6Ldl+9O7FzmgV8P0LVXWf+opNnof7oIgtSxk8MIsYoOurSXR0k RMCjqa4U9yOj6NMVhVdPVQiYXiofyF0eRd4JrLhZSwJIJAcHLakx9KYA36Ta ESDIM1L1mBhDy2eCO2hsAuQoREr99jEUG5B3bmQ/ARsFkjYNpIyhDtULri+P ExAm8W/yavVx9CfBXYh0hYAYScriw43jqNuP5M1JJ+ACNfuQ8c5x9PuUk8rX TAKypJuNdx4fR84yWWz3XAKqafiXb+U4KlakuFwpJaBers1uunEcHS2u7Bh/ TECjfFDl6R/jqCfsy+ZNFQR00YsuJ/FPIMcBekB6DTd/FTnjUtsJ1Lqp7o3X W27+jId3Nh6YQKSq+HsajQRIMq2pLwMn0PUje/98+0gAg4jp/5wxgT5+C9u1 8IUATVVlO5fiCaS6d7er/zcCdNSePuurmUApf92jP7YSYKo+mjTZN4Fmqrw7 HLsI2KGRMB8+PYGyK8mjJ38Q4KCp5sUvzEGMixMtZ3sJOLjGxYi2joNa9qq3 H/lFwFGt6byczRzUcLn7k8kgAQFrkyXVHTmoWLnFZnGIgFjthp8GpzhI5xdO NR4h4BaWVoo+z0HRysYzt/8SALau7LfXOWic+ctidpSADreCizLFHETRlj5u PE7AnD+nfl81B5FSHDx9JgigRaHlOx84KD16QeIChwC9y+c3jHZzUM0Mwy19 kgDfByp3oymTyEJrKP/UNAEJz490v5WZRNqKh0OsZwi4+6lMboXaJEq+qHBX cpaAuh88dq4bJpFbZI0icLlnzOpc/rZJ1BP66ZXLHAHLPOnPR3dPohH7qOR+ Lq+U6p01PDKJRFofH943T4Ahc63OmbBJFJItbPicy2ydU97vEieReHrjMHWB gBOmtbdW5Eyihq9kHxsuJ9lLtLn+N4nk1uzOP8XlYo890nefT6JPH3Rik7j8 5nie5VjTJLpEyhlN4fKv6NEzG/sm0cOc3Z/PcJk3xajyzCSXG17LunGZcTuO 845/Cr04QMpV57LJw09rZOWm0NuHZQc6uPnsfbnSc7/GFDrbZWUSweWTnw9l 3d04hcoDG+giXL7SW/plzHIKuf9u6j3Dra90YlHMaN8UkqQ/CR/g9uMDZbt5 jO8Uarp/8KMBl39Lp0a8Pz2FVHMOvgjg9lOI6CqTvTyFgi/+MMzk9ltNT/Pv /ltTyNnw5sr7UwRs2Rq4quDhFGJ9otgWc/Vxc4T947VTaI0zuSKNq1/4QZF0 o69TaMPYGuMjXH0zAtgfY35NIR2DgipNrv7lMTcFG2em0OoobcYXrj+aU39j mvA0MlcR3+HN9Y/44+gHBWum0TOZ10GOvwlYXfd+cHzTNJqRFkAFXP9t+yLH NLaZRqpyu50GBgiInixJbjw2jb5/G/xL/CQgh2/uDe0MN17+Rz0m19+VK8wo 7qnTyK2Otl2I6/9p/bYTE2XTiBVSuje1nQAZc7Ui44Zp9HuyXNaAOz867GN9 sd+nkX1ouEJdC3ceggSc5Bam0Wetv34ZTQSci7NPdBebQVVCsiE9Hwi4k5ZV d09pBg3wjGySfk9Ad5nu+k2bZ5D8i4R9a18RsFgf4RtnP4OWrG195GoJUGh5 fefDgRk0MVOdPQQEOE7vp3nEzSDsptBg/pSAhg0XZuLeziABge7K74Xc+Xyd M2jWOYP8jr0SLMrn7o+9D1t5x2ZQTKBLmdttrl8jWiujZWdRCLvazj+DgHu1 6lER7rNoUPQ5lRlPgDnb+PimgFkkH90+S4omoPeXzYGFuFmk8DrSDcK4/hcJ NgspmkWNZ5xzu44RkGhXJxQ0PcvVKzEvfQ933/R+m9MTnkOJp8+rBzhy913A 7+GJlXMoImCcvNaagKWr0o3HTOdQpLJtqtFmAvw73ZN9EudQVn5NzWNVAuyP LCl4suZRDMXmducvFowsUEWJ9fMoU0pPLKSLBQkXVRd7ts2jpbq4iyNfWVD7 wKrLzXce0a46O7nXsUB/JuO2S8U8crX3FD1wgwVN50pS6e/mEWNS1KkyjQW+ 9BexrZ3ziP1+dfzwBRbcMRk8tIt3AaVb6Yy9PskCudgNaxxtFtAPq6ehIdYs eCRrqSjtsYDe0CyfBW1hge1dV/GmgAVEXGjYZmbAgnNvY0dtMhaQ9lCLizOD BXPU5keWPxfQHvO2fzePMaEj23/TltBF5NGjmlwWz4SLSG/hxYVFFDv+xych hAm4e/qpafYisu68Nantw4RbjNMGps8XkciqD6K/7ZjglZuou1lgCU3VJyrJ yDNhpOCeBkpZQvN+QSOPshiQs8N3oDp3CWX5jHx2SmSA7fA/+SZlS8iBdry+ OowBpWsqCJPvS2jPIiekfw8Dgu+/Ut6kvIzG4nyjwmQYQHrct8KocBllbAoM NQpTgQdOd5ufVi6jOC27DSv+VQGPqSMpGxuXUbPpbcdiBxWo3TAhuXFsGV3s NbKU1VSBrR2kuEw6CavU0kwC85VB0E0i6ro7CX99LdF0U1cJ3LSPue31JuEV d56kZJCVoIL0GdFPkPBN0ciA5Y+K4H0zbSkjhoQjg12HhI8qwrsexbCMfBJW e7A5ROH6SrjsuSb42h8STkjjl+btUIA42yFDrSkSTorUFXl3WwFCjO4uwBIJ xyV5BAl6K8BBKhE9IMGDPRkG9J8ceVhfRU/coMODOVeicg7zykO7jMjtL0E8 eLvfiP1VMRp8XG7wPHyaB5MpK3ok38tC3VCc+mI8DxYs73y4+YIslAC5hLjG gzNV7Q8NC8lC1NG5Jyee8eAb0XKnTlJWgFrtYCOVRMaWi6K5avNSQL+ffzlP kIwLGx6wvj+TAskMT0dDKhknbYzS0w+Xglm/H9/dmGS82GljYE2WgpE9OZkc TTKeWC+cheup0GO2b/9ZXTKOCVwKtUigwjv69777W8n4Z5eEv6g8FYD/av6W nWQs++9/VcI9kvB4zNG7xYmMs6rK+7OKJCH71ce/S15kvOZ+iyTVQhJSSi+W JvuRMa+PPr8RTRLOZlkFqp0k4x233JTpnyXg2ImGuZ3nyDg8TuZXqqYEeLnG Vf24TMbaXuv+CHeKw57tWyMDM8g4RI6QkLkqDjZ65C1Ct8l4e0V8GpktDluV gS+rkIzvmd8rVaeLg4FwRIP2IzJ+F5m21NIvBlqTRgm1lWTccq1gya1CDJjd szt31ZFxTml3mlSKGMi+LZf8/Z6M+zVwqGGAGIiUBX4+/ZWMo+wWryvvEwPS Td006S4yto50uCRiLQachLFd+b/IuKRebR5ZiMFg0H260SgZv/5UR5rfJgad 7j6djTPc+z6T4kAHMWiyWn3Tg4eCS+80+vd6icGrDYMHpoQouK9sNOfYGTGo ZOarnZei4PqZeJJFgRj4W7+u+0an4LWrtY7PtIsBETJ8cJUqBb+o0G1p5db3 LU+MN2gtBVsXRBeSvcQh8dO627UbKLjayLn01DNxMF20M5XeTMFubsotJisl YEo94If7DgpuElP/x/ysBNxzTIv8z4H7fg2/5qllCXCNfKK87ELBX0w7Pdqw JEgVtVbv9KLgjo7dfN7xkvCqZWFfph8Fu5ac3GL9WRK0123ONIym4Ab24GB6 CBX69hwwOptAwQuaknplX6iQHhfb+jWVgt9OKxVe1ZcCns7XcgH5FHx3ZVr5 OFkayoR+l7/4j4JDi1iJov7S4K0v7kx9SsH8nRqjq39IQ9MF+ysl7yj4RNLt 90WNMpBr1EYdHKNgB23m/qWPsmB+7bewqzEvPh85U6FmQYe5WvF7RWa82FVe ZpVKBx1KRrW3z1vzYk9tuRrtgJVA2xYYn+7Oi3cOTfdI5inCwNQi5XMcLxZv +VFrKqACCY4SixafeHFxjqHm80AmfJTQ+fuPFx++VDEkUKC/CiS2rJns9uXD NmWdIodDVoF1kNr8pWA+vPzAzbC3ehW8bVcQGDnLh40jlK9QLNShvoCifK+Q D/elZRUPOGjAsy1frJljfDh6rM9/tdtquBN8skQqjB8LGjFNT25dB2Fd1T4T lwWw50zFunQtXQhxULTdd10A77p0oOLaDl04+SpU51WuAHbdFTUWdUgXAu8b TGeUC2AD/oIKgZu64Hu6NNK0QwA/2ecfPyalB+7Kd1IuqwviG3YJ+VHjemC+ P7FiXY0g9p2nlofdWg/Urr18R38L4Trv5e22TYZg8nzOfklJFPd4dRzZ5Ygg YMeN4HPm4vhoCG1uTNcU3vAUtnpaS+LOAUfzNe1b4c6HuOYUTypeOfx8yG2H BQQ/HtqjmCqFD8fHeFN/bod3I5+sWFXSeCROwpPtZwU+8k/l1zfJ4Kgxs4x3 b62B7KJ5IndpBfZPyNLjFNlC76Xr+co0Go5Na4wa7bCDbbQkC5qmHA7do/Ol StABbpWJBng7yuPP240ZjVaOsM3ifOgbbwV83uXXIiPUCV6WlIXm+Sngk1r7 vx+KdAIT2d7QyAAFbFan+qg41gl0fxqFrY9QwH1TeYcMk5xA6cyfsFuXFfAN dKPeNs8JJqptI0KeKODVSZ2epz84QfZ6WpQmPx03tTXptrPYIJ+9JYpPhI7v 6sgtMDTYkMrnH9UtQcdJZa0vD61lw7nmhqg0eTp20G23mzBgQ8DxkGiyFh07 tY0fErZmw/aSjjOtDnT8zCYg3OAkG2pXCMc83kXHHGcFk4hwNpiEr49J2kfH hrM2Sy+j2aBndSnG/BAdT5j6htskskFpCMeWhtCxklBqkNctNlyz84lNPE3H ZHKzblE+G2QqrsX+G0PHhW8KR8eK2CB0djxW6SIdE0/UDoeXsyHmr1LcbDId +71/S7ysZMMS2zKu+Sodx6SIdgu+YMOp6uC4+5l0/GFhMMP6FRv+/78MH589 6JT6jg3/Ax1KQw8= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-91.19655356274396, 54.42896129010576}}, {{-6.907755278982137, 6.907755278982137}, {-91.19655356274396, 54.42896129010576}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2nk0ld/XAPBruOZ5HgoVhQZKMhTPcU2VzO5NZHYvKclMCckUKbMIDQqp EFFJ7lbyVSqUJhWREDJknt/zW+v9h/VZx9rnnP3sfZ7zrGWDu58NnZVEItXh H//7Pa10Kz7phixM+flxJ0XSoPiQfLNGgSwoCowFJGLbB+aRf1yRBa3Wqq54 7GeQGquWKgulcpy3z2PHO56N6YyUBT+FYsWz2NJptEi5o7JwwVfgnR+2/jJX SJWELNzfee2pLfbExtgaRxFZeGwkMWyNffPA2jS7gCysP5QhYYXNmTMTeJgs C9YF2ccOYbfv7PNfnpIBj+S4OSNsd6+nviYdMrD5q8QDTeyE9770rmQZCNgs nSyO3fWlds/mBBnoeMR2QBR7W88aZ0CMDJwYMWIX/l+8kbQy7nAZ0LzTEMCH LUOuHddmyIBXwx41NuxyrdXwHCQDQ8OMTRNnafAp/9IluxlpOBnl3fsftnLR Z5frE9IwoffK8CX2mTsKO0dHpGFTnVjRc2yF2qoP5/ukQcPZyf4Ztk/bJ6nq NmnIircoqMJeZZEvEi6ThsTU4yn52EpeFY/eOUvDuGvkiC921bGLVB8HaeDL PSJ5HBudODZFpknDmUVJ5I3t4L9JTc9cGvbFqCe6Y6eeySm+u1caHrf5/aNh L16OykqUkoZ4ObFtBPa7x5aBlPdS0BSRJMOP7fh0m3D3WynwvfP9Gzf20DPu ivBXUpDVlJ/Lgc324sVwJUhBC89hHhK29lstd/kKKVB9bgT/IvDz6pW3Xk6W go/NZ09/xg7lmdhRaywFeHm8hdi1a3LfvAyk4DqPFD0Pe3baPEFaTwr0DUlP s7GDeu72ROyWgoi4CYfL2KceeqUabpKCfuMvPtHYPs49k+0kKdihMtPshu1c 9e7hyFNJ6G8etdqAXVCy4lrwSBLyarUU12N/z9/Gb1ktCU+bWaaksB0TkuhV ZZLg2rkWI4Rtf9REIjxXEixsZU6snaGBDUdDKEeoJIy2nXD+jm3scF93wy5J 0H6TcC0dW1GtLCx4uySwEZz+Kdjs7CW1r5Ql4Z5KyL5E7Of3r+8KkJcEgUVy 41lsxJKp+oJPEtqeKkZ7Y+8rPS1DH5SAo9eX2/Zh75o1XSzNlwAjv73nfp6m gUirkfZKjgQ86qPEdGFPXjMIsc6QgPl244hO7MoDe/8tXJCAjzrrHVuwtxfs GD4YKgF1v1ReVGArG4l3jVpLgEjJYc2z2HLpfU/UOSXg9brvniLY2h6BTZ2s EsDcEjDCi22zm70tbFUcOmVmfcjYCZ+U+mFGHB68LbWbD8f9KHNMwLpfHIxl ejp+YDcWjbv7N4rD4RfXT5Rge9Ys81adEYeUjZrDu7Ej41MkaKHiwJb6J3I7 9pXDchsWA8Rhsv4872bstwvEHoqPOPgOGPNJYu/RP+/63l4c3llx3p0PowHX f9w1/zTxelhTqHXYd79IOGtMiMGTcPJ6LWzGheDF8BExiO8b/L0dW0G3MxsG xCDnbm+RInbm1bQ28x9i4FQ6uCqMHenMZ+D9Wgwuz7SpjYbi/fazKBbcEoME 9iD/Quz58dE/HEfEoH5dh+hiCO6v62bx5nZikOftTR/H9rUu25hpKQamnxzK +rH7qrwcN5iIgd4WcYE27Nbgvjd7NcRgbKv23iLswqXPFaf4xUCrB+QOYBtx vgjuahSFp7PUq0nB+PmVBSpoPROFN1E/AiOx11kotmY8FoVgFWP9AOyZzDgF 8wpR4FMMLD2CXbxxfyszXxRqjoe3b8Hm1n+rcDtUFI4p+7o2BuH+Dfrc6rdd FIIamsl/AmmgK5UY8kZZFO4ZcS50YRc/1d6goigKA6Tpb2+wo1jzQvpkREFw Q/ypSmz11KMbqFyisGAZ9D4EO+Nub4juLxFI3n7Mm4Rt3zeygZwrAhXNZy05 Amiwdk4990GmCFAt21Tm/HH8DcFCzqkisChXOzWIPe26ulqbIAK21GXqK+y0 HqHv3iEicEk9yCYZ+/V3zew3tiJwp11alg973+conkwBEZhIOepFOkWDXyFN 5xCPCLCKOgmN+9EgSYJ7YZQsArqX04t/YH+hpg8arwiD5M+DeXXYwZ23muZG hOG22oP8QOzyjleRjq+E4cdu/qXek7g+3ohObYwVBp0X/AkVvjTwMtu87B8l DLDv01oudvlrbXLjaWFQKrFyicXWe+Uk6eIvDMGa/R322A7NJXuvOguD7bd9 MSTsLNgbK6ojDF9ip6cPnqABT42HOPuYEDA5loxafWhgvTtEzvaPEHg6FR+u wr5SnbjlZr8QPOEjm+dib6m6r4O+CcFAmk0PA9uoYs4pokUI9si4FpKwo+4k F0/fFILn84e8dhzD+Syo1vp9WAiGIhc2BXjRIETagT/WVgimD6hrHMaezyT9 2mgpBBaZXxT3YS8nm19yNRGCjZ+WysnY5NOD/d92C4FV0rxDDoMGEjTZ9PfC QlDfUzH9kI7P13UcX6NyBOGI0g39Lx74/BW1jX12SRCqC/wdnmCH8VxXW4oT hPIDznZ52OfmdeJDggThjddcryN2eqevhq+1IOgv8Lv+cKfBw4sfUxx4BUH7 wMnmr240WFi+RdGMEoBPopbKj1zw+/lrFs+1EAF4tl3LLxP7dU38e66TAvBQ qCXVHzvvpLf796MC0B9q6LEVW/fn1pjzugLgob/LoMAZv09fVDV2zPADn+NI fbgTDVYuADp5gh/UN55MEnPE5wPjAdcXD34gW5t/HHXA/UG52W7gyA+0uvCZ Jof/9ed5V/GD/FB0hrUmCFvf1zS6fgs/eNx8vvX9EZx/q3dMnl98IOfc/i7W ngYskt/1S47wQUP4tpz/qDQoq/JWpVnxQTY13Sob28ZiRpxsygc5E2Htntg3 4wT+uu/mA4c/TzeyYBtNo6tygnxAYVRya9nRILHj9lxWEy+oVPDczrGhgdBF v8pYNezrYXKqljR4vGX5qsZmXog+Mys/aUEDtxeJCX3reGEtYqb7EXbV4g1n xMMLMpdRphG23bFOvuV+HpA7cfqDgzmuNxOdY4F5PJBS2up82gzXPwvbRncy D4QoL3udN8X7zXpUXLnMDdV9nEPG2EdVTmxdm+KGWF8lJS7sK9Yfd+f3cUPG 7YCPySY0EL5ZYvqJyQ2sm805Uo1pwGp4yPfgaW7gS3zklWxIg/7YrMe7xrmA DKoChwg8Ln1Q79wAF2xPpRWQsRXurza2/eAC7dnvPQ36eL6PXq0n3nBBzbp7 Z9WxPyrpdhff4YI53Y2iQno0aG7uZpP15IJ1px46gC4NSriULdm+coLwX5ep Pk0acBwNm8tu44SaviNnkrE9K1quqTZzQtCxrfka2Aq0YxPW1ZzQS/IrjtmN 66moLO16CicIkAXaZTVocEl/e6cehROQRiSPrjrup6BdR8LucgAPl37mRlUa dP4Xw8J3kwPQjq/omQoNNGQ/3Ll2hQPyrdeCD2NPNAYuNsdxgM7uutAkZXwf Eay5Ku7KAdum6K+GN+P7SJlWd5UYB4zlWWzJ3ITvDz/3efw9S4ZFMZ7Hcevw +016p/L9IDKciO+IEsF+ba3098RxMsSmWj0vlKWBxQv+0FF7MuR7C9TUyODz t7g7aUSDDKxpaeiHFJ7vRHTVnz/sMFxRSRcRx/e7+RcsA1R2cMgrDRDix/W4 83Hz7UPs8ClE2SGZjwbiPveS6YbsUOTWWkLGzvuWKf5bHY+/rAmY56FBUQNd pZ+XHS5Gp1Z/4sL3s1hO675GNmgNd6YEs9Pgm5DZ9e7tbLBHPcxfc4kKIhSv VT0lNsg8fEWqeJEKBwPPHy1YxwZZJnZKEth1H59KHeVlg1JtHt/peSrk5W1L +zrECi+vaRTdmaWCg6JATGcRK/T40yVmJ6nQpdXh8VqaFVIOldiIDOH4x/42 qgizQm3fe5eTgzh+HrfCBS5WsPTPrX81gOMvG3w3nWOBRg8O98jfOH5jld3L ThaINigw7enD8c0yjeEyCwjobfwY+YMKX50Pb6kls4DJLelktfdUsLEUvOOw TILFUT1Vzw4qvCb+U137RwKzXNr3nHYcX0Frx/6fJIj9JB+8/I4K+X0Sml11 JHjlP+xQ10oFZ8YnyqofCUqu7WLlekmF5m9l9RcfrjE9WeM/9tVSobZeBj7e WGM62ZSVzdVQoaQg6YXc5TUmyxN0khc70cXndeWxNeb59h9P1aqpYPZL5Uun 3BrT74KRxfEKKrQPl06tu7DKZLtXued+CRW+LRSr3ndaYV4OmWe3zcHxWxmu modWmPRweyo1mwrpBZuzn+muMAdUBDJoWThfBsUs7yRXmAcN/nZQM/B+Em9/ GetYZo6POemZXsb5krwVr26yzBzTP948HU8Fe80bfdU7lph8PnFEQDAVdnO6 Se1bv8QcKg6fsAyigtBXBYsm3iWmd72i97ZAKrREXH/SObTIvPLtTHHvKSpo NV1Lnbm5yFyUmNDVO0EFCdtCfS3JReZpjqn8R+5U6Dx1Na9ubZ65xlnwocKC CuqN6ZJvR+eZSffcZk3NqZAinJTZ83WeacEuFdJtRgWTqrBL7A/nmYMJpDiO A1R4MkWNsfCeZyrfHr5HMaRCYYiQT1/7HDP1d1j0MS0qeEfE6fDcnGWSEysr PeSo0PQmonbd5Vnmxpg+5ot1VNiwPkhDLWKWaSde/3eDLK63Z+7b7WizzEsc CgVfJKlgvkZsKOSZZbrnHhZSE6bCrphFrl2BM0xW6yd+kWxUWErw+3LEaJp5 NbN5KGfADhSKyi817ZxmNl166wP9dmDU8NdITX6auWXl+teBPju4OH38Afvi FNN6Yjpoe48dyLl5J1VUTDEhYsDzxmc7QLpu+8iyU8zY1lntjS12ED9qc71y cpLJXrrSHlpiB2Wc6TTZnknmBrJ0xpHbdtC2sYMv/s0ks20r+4J2kR1IHbEM dyyZZL51rC+eKLSDOy/NbDicJplbcyNNDLPt4E2hEfvRlgkm76vssMBYO9h4 80S7gP44s2b4qOeYsx0Y1CXdcJcdZ5YPnH9256gduL4vDaidH2PuXOZpcnew g2usv8Wcq8eYl8cG2t9S7WCdh9OR+8pjzJgu94qEQ3YgrmjRZyb6l0mWELiT qGMHXMVq04lDw8wHdrEPK4XtYEuD+cvvL4eZ711Kb64XtAOTT8ez1YuGmR6s WxYT+OwgjqNU+4vTMLOjOfm7HacdsHopnN3y4Q8z7JTRrrZlW1jaIszR/GyI Ofl9Qddo0BbG7vyTZMsYYB5ZmolVqLMFAWZU6HHfAaZ0h1TgXK0tqHXyff5g OsA0ST/A3lptC6dWN2ffWv7NbNvfwu593xambBzFTBi/mc9LyDvDr9vC/NIL oQs6/cypee+2mThbYLHI4hb82ctkNRJQMrawBZV+v1lNhy5mg8r4wbIPNiD1 /lUkm1gX0/MCyu5qswEO2MTZ8fYr81v7NjrnGxvou/pZ8oTBV2YZDMTTmmwg z5bQuan8hfmtUa3s9UMb4HshECEw95EpkalI4s6ygYkb91kGMzqYHydmHT7Y 2IAv85O0+tVG5tGCbwVHX1hD4mTL9EXhRqYdG0XiaYM13Nz0tO1PAjA1pYgp 8TpruCdI8Jr+aWBKOIR2QaU1RF1v79ueX8c8z7n+6EiBNSg+n0pbYqli5rhe 2ZsRag0/7yPO7qpjzOj9Vt/Ula1h9Um+Su5bIDTy/qp3RVrB2hXutT9C34hJ lnVlj1rMoWf6zsVhvQGiqeZXKmfCQej/Lhi5r3yceCOhd8aE3xSmu41tzT+M E6KHdzXbk0yB3HtG2Xl+nHA2NPIKnDKBjH+Bf4gNE4RVm7Xa868m8HC2J8Pt +ASh8mh90KtiE5hbfTR0a22CWHfMbvYqxQQiBL3Ttyr/I6jLqrv1Y4whVoht pVr3H9EyOOKfH2IMF4ULvfaZ/yPuG2Qd4DxuDAWinfvMA/4RprK5VDY7Y2iQ RIMn6/8RUXSt9iubjYGkILWvymqKCHI/Z3DknRHEqbf81g6fJraFs+3RVjGC m0hULiZpmni2uu2atIIRgJUzrfXqNCG86KzEI2kEi6emm50apgmPSlZhabIR nHygUBrDNkOI+Rls/ddrCLRd4T5vUmYIV1X6ycpCQwikNN0UvzZDULT15DOz DSHVRvCbc+UMEZxwfOuFS4bwOuC22eT7GeLe2r3xkkhD0K/u2CYhNUsslMSf qncxhM27Vcddbs4SZ598/+KpZAiGRsFb7lTPEr5bD/L7yxmCqx24/GuaJTwM InemSRpCXhCtPXZwlvjPqGeFn8cQBGpiHtzZNkfMxZ56uDpOga0v3/75pzdH EMw8/4o/FNj/UWrjPss54lPKQFbwLwrEzJSnv/OfIzTt0roonykwp/ktcKp2 jhgImxgYYFJAzGTzvX0tc0SpWsPx/XUU2EXz74/7Okf0NurNwkMKnAjhpEot zxF3ogUW5u5Q4Getxh49g3nCcI/IyPksCqw0R56Mt5knkg6HvS1KpYDM51fF bR7zhKmMYOz3ZArYzblIusfPE7qc0fTcGAq0aF2cj2+dJ/Tr+GdM/Sng+era H+PuecItma+g+wQFSI7VXeyT80SH+dCvTG8K6ER21cdILBC6W7lr3Fwp8Elw 7L6BygIxavVsNuwoBQJusFwj7VsgjDMNTR7YU6CsSflcpNsCcbHFLjXemgIm tH0BekELhPSyopWiBQV+DVp6LMcvECsvj5f2H6TAOt5Q49P3Fgjthy2N74wo 8Dg/aY8Oc4FQ5M87vGCA17+jcMt8xwJxuzBYbT9BgRTrl9whcwvEF4oMw06X Aqq/vizu5lkk1IqHykS0KdAcNDoytW6RuPp9dGVWkwLuHKQfVWqLRPAFkS8s uymwmiP6zp+ySGSQnj/U2EWBPJUtTHXqIpF1/Z9wijoFtJ7qVo57LRIDoHdK QI0CnYcsbpSfXiQmtP/ZPN5OgVPdbum+KYvEhzhllLyNAnyngs9vu75IXMn8 DAlbKVDKciFopGqRuL9n2LVclQJGGfn0speLhIAptWJNhQK9ipW0Y18WidD4 HfoR2JG1L0yVRxaJMM2mm4rYMvs/aw+uLBKOgTXBC8oUqP06rFIstEQYH+O1 XcK2Ob4qQ9+0REgcsO1SxX8/tizMp7hniRBVflKeiJ18SWmlb/8SEfpsU6g4 nl9ZQWfshuMSUcVv3d2B3fTgUI/rySVCiXc6vQGv19XQtV3+3BJRrfnB9Dve z3JnYGN3xhIhaDhUvXUHBa4wEqoKipeItK/R6fdxPjTn84qOPlki/Lxdi9x3 UuD9hfJM2TdLhKbyrzIzDQqclH0e19W9RIxabAw4hvPPc/9jSO7kEtF9Xvq/ ei0KFOv/8bJnXybir72NMMHPj9K+bC8puUycaQo6zqlHgR43oYOfVJaJke5r p0iIAlJxWtvsLJeJ1fZLVoUmFHgoYbZe1H2ZYCtuYjXG9WNV6izwPmiZ+LsB Tm/B9XWhNW7CMm+ZuP6RXl5Eo8Bmp9xegfvLxHu2nEDCkQLPx+69f8tcJiZu cYrI4npeFO58aPZ7mTipSNHN9qFAdtHgbZ75ZWJuwJtD+xQFNDSXsl/xrBBr duSdciG4H+03hpuqrxCaok5n63E//Sg8pWd4ZoVwibL/7HmNApeI3cvPL64Q XuvWdjQVUwD9nKujFK4Q3tKvTLzLKXBzQ5Q2pXGFuJWVlH++gQK2zylzje9X iJ8MVfeVZgqwe3DUGvSvEPPazXPQRgHGrRQNA85V4isjlm1rHwUkja3/gdQq IaF17kDnCO7n32IPkOoqscmpde3NDO6HLfk7kPkqIZ3l1VqFz6uxO2UqRMYq 8S3f73aEtiFcO3hyqOHWKvE2sGb8rZEhWI3sLNGvXSXWMiv/nrE2hKptTxT1 v64SFcms6TPHDSG04j95Pfk1Ilf8bUDObUNQtkrurldfIxotnObJNYbQNWFR sI+yRrA6x7X2NhnCvl2fZPbR1wg1PbGu4d+GQKrpF997d40w66EpXNhuBA+o pZ119WvE/Jf/NpciI3CfPZ6h+26NaPqy6+QBOyNo0poS0p1cIyIfKb+WO2sE Rj9I8fmyJOTuVb7/5EcjyL/vTj+qSEIHtptZz48awczZJqN120nIZeaJnjzZ GIrlEtny9Uko8NaqnK2WMXC5Cp676kZCQv8YwS+LjMFV3d/V0YeE5AN195eC MTwhfSBkA0lob30d/8FuY/C5kb2aF0tC0l7OCt2yJvCmb31EXgkJtXiny3y7 bgKK1VGODpUkxPW7aI9pkwmcPd+rK/OEhOJjf/0tGDKBHYq3F3Jfk5D+NB9D cbcppNG3heb+JaF86hZN68+mEG81rLN9loSu7jx+ZYxlP5zeW7oMqyTEJkb/ fXP7fvAUVowZEmRBnDvvepxM3A97nsmmaO1iQTPG0+qnDh2AraVfLVt1WdAp /fY7N6MPgEJGjoiLIQs68TtGbEftAeA+Jnol3o4FWWXd4wxWOgjfxXiLPoaw IPHUO+87xc2gfa2FfiyKBV178vpmN9UMXg7HK68ksCB5oYQraTlmUA6s5Yq5 LEhjVOm9nMIhOHdi8XHgUxbkPOdXL2xqDiGHH5/hbGJBwaOvowqzzMGHEqJ/ 9Q0L0pnVN1IbMAc7qX8vnv9gQXXfHmxKTrGAzU1/3gmTWNHtHcu6PrOWIFtR knabixX96t5kp7rVCoTy6HY6wqzo6rv0S+ZHrWDBr/er60ZWVDEd/UT9uRW8 kf3aX2HEivK3dRz4mm8NwJFTYmjOiuoy3ewrPllDzaSdz2cqK2rW6N/3TtgG Cv9rH19l4HijvSf/JNuAf2DLovkFVmSYu/9lxGVbYDjHP+tNY0VBVSab4z7Y gsMBo+jgPLw+1a+nXkrh7wt5IBfcZUW8k5HPO4rtQKL1kdDoW7zeZtWTwvh7 tX5jyeYkETbEFntD9M9Bezhl8erlF1k29NuF3+JGkT0onh7x3KLEhoZekT8W LdtDSodaUZMWG3LMN1UQqTgCztGP5deOsqGdzVT5wyKOIHKvq8GcwYaOlL8I VPVxhP8+Lzvl+7GhPyHLHG6NjqCuZpCvE8OGHAzOCqf7HgWW7ldSQSVsSH3t J0dSnRPUco8+el7JhpxkTryc4XEGH02Bw8J1bOjKv+FIBQdneH/RJqv8DRta FeOPjp52hlt7vwn/mWRDj7fcadHgcwV7r5VKrSU2NJhVlPxjhyvwZchbxbOz o7AhY41XVq4QPOxxaZMkO+L++uyhZ7ormOSO8jjvY0ef064IM/ncYLFJoOye MTvS7KiYilNxg/IJ9QNLFuzoocHxzhxjN5DcH5xwxY0dZTSK1JSccYOh2RW2 D/HsKC1k3r+9xw3yNyoUbUhlR9fZeT8Zz7mBtQWFciqXHQVcSIhVEHCHutvx 0fz32JE2STFeTNcdku0EV0w72NGPXKlnzsnugKJ35md3sSNXUZNX9EJ3mL5r u/f3L3b0+GCk93ilOxxluxIeM8uOSJyKFlc63WFHlcJsvSwZLRnqpBRKeEDf D0oWrxIZabqIn5Da7AHZ3PTdDjvISHZQe2yHpgesud4JmENkFC9rHKpn4wHt grvGdzLIiJImFrI90QMEDbfN/DxJRn7S1iusmR5gEbJ56XIoGXU3ENTMax7Q +l2GcyyRjHzv8E1M1nhA8x02+bK7ZDSm1Kn0uscD2H+sKB55SEasiWGjFX88 wFBoXpXrGRllpYysc5nyAAgZ3cN4R0YqLmVX5Tk84anhR4uNk2Q0nP+7yVLF ExZD2uw6Fsgo9c+zvpKdnqBd9sohmpUDndofLdqp4wm1Qg2MblEOZMQfYXz/ gCdU/iiOzNvDge4S6crnvDyhODSsXCSCA83aVk3G53vC77KAh42xHKhug65B 7k1PUOw+UXcqhQONBgdFXir1hBtGbs3vCjmQ66x5puJDT8gXPtid1MiBxicz 3wi/9oQuI6N+ndcc6LaltZVFmydIh+kPD73nQDM3uX8HdHpCdveuWZN+DnT2 aFpESLcnpN2VFWDj5ERD9nKKIZOe0N4tLlYlyIkSOfYKsM56goCIkIybFCc6 f4i67vSiJ1wMY9/MVOFEt2Pij6uz0SHe+K/emUOcKMWbJ79RlA4RPQ2+U2mc 6OTle96tO+lw2na9ldNVPC6SEp2hSYew/87s+u8WJ7o2ULzTTIcOwRXac3mP ONHfUx8/JSE6nIyqiqb84ERZqUF9dhZ0ODEl5HFvgBO9EOm9WGRNh+NefsYS E5wouOx+VL8dHbwtt/EMs3Kh1fDg4/qOdHCTL85IU+ZC2Qa1Kg5edHDNYA9Z 2smF9M7yTFN86ODM6WFP38uFdFI+qCn40sFhXH69jgUXqmxwHH8cQAc7Zm7x z0AuNNGh0XfsLB1MXFKeqDG5kOrkzL25VDoYfRi5mtvChSwt/6oaZNDB0PRg JNt7LvQovOxgTBYdkBqn4ed+LlRX3S4ymksHnbXoN5E83KhmvxaX+006bLsW 1POWyo18v9x7PvuADqqiHxq1XLjRZqOwu63VdFBO2Hnrhjc3Cps/5JpXQwcl vzHv4DPc6GXpu0KlJ3SQI7z/rbvBjd4kaLjPMukg3ONIPjHKjWS9RV5kv6FD nkO6xZ4ZbnRbpNdq6S0dNn5qySGtciPvQclmxzY67H6rqZolyIOCnn0pEXpP B9pTQcuGXTzITkN8zewzHfJzXlwRCudBsRUFDeK9eH7Rxd6uczxIbttUC9FH h/JL6ltvJ/GgYPKOQsYvOjDjCp7p5POgW1c9vpb9pkNfYGifO5MHadZt/Sww jPdjtXVbDZkXSVhI+Fj8o8ODVrfgKAFelGQrbn9wig66plcaDkjyokdbleoM p+lgpk+27lbmRREPklZ3zOJ62NYTzHmIF51lOEUMLdChmiuDeSSdF9mE9gSM kRig37hosyrHhz58+vc+jJ8BHodTovK38KH3bm2XdggwIPGv/D1ddT50unyw sg/7vbQxOdSAD2nWvN5rIsQAesDlR+MefKj+qsT0oggDLm5SXNdbyodkszIn 5KQY8OBJ7f6oB3yI9rbQ4Bn2J8sDwevr+ND2yDLkIM0A+YiT74608qHqfyH2 qTIMqOp8HP3+Lx/aOZJ45O86BnyNM//9Yhc/ChYJf+W7gQGrsj+F3ffyowcV Rx/OY2+sCtAnGfEjL67OuJiNDDjRnZOzj8qPzquMDaVvYgBJq+9ATSg/knEJ Zi9RYsDmoZDy4np+lCJ5VvSaCgOCDl4PvWAigHbDteqf6gyw35AT3WcpgDht Rf/SdjJAbz7lwt4jAqj08ta9b7A5is9c/XtcAM1di5d/uIsBV1gOM63TBFCA f6pF+G4G1D/m55T5LoCOWHXRvmkxgH3Lmewyf0E0x/50mU+fAUMr/tfYzgii JZYERR/st53epUdjBdE367aiZuzsGFqdQI4gmq4IqDhLMEC5e2d3QL0g+pyv qNyPGFB8cDq9gE0IEbeIuQxDBrxmudtFtxBCpmIBHxP3M4DVPz39uY0Q0j16 uuUdts7P8IPyh4WQ1VivhdgBBpQ27K/74iKELEqPSRdix58ZyDXzF0IbKjkb 7h1kgMHMhiM7M4XQ3ZLvrI8OMeDx0JXPy1+FkM+FF+OxVgyYOBx9+Ui3EDpf 6NDbgL3lPy/T2j4hxHXlY+Q8dvbtPY/8RoSQIZkdfKxxft07s/uWsQcaTpjZ MEDtuyCtRV4YrdtrNrtii/fTFt+ZQRdGhivvKrcexvl2ub5o7iOMNtu2HXTF 7hx7osDlJ4zsOaqzM7HZBP6eiAgTRnIbokyWsV0P2ZLpycKoSMNCosWeATKv 5PfseSCMPu8VnLJ2YMCl549zviwLo4Ghu3t3OTFAyeb9s3QWEbSpQUnWGbu+ d+TXIQ4R9NfrSf0F7BGSvHqjoAhaKeo3/Ym9n4hrubNRBEnoCiQlOeP81lsv nN4vgoAnRarThQGhNcMO6zNFkKOqFFnfnQFHbaoCGq+IoAnjKH13bMp4eBK9 QAS9smwwjcfmU+Guu18sgnzDF1+/xb6Zv0Va/4kIyix/nu/gwYA35z0/O3eL oFYX/fLjnri+bbptryuLogv9bn6+DAZwjt8+brRdFK1zy9pxEXs02ff80E5R 1FG3q7kM+9HL5Sr1vaKIhZQXNYh9SEdWpNFcFJF6Lmxw8cLrVbBv7w0QRVSh SVtTbzzfWMehTc9E0fNDc6PLxxgQcpl8JbRRFJnW7PEQ92HABnWdX60vRVHa 0tv67dgh/tfDg96JIp2hfBlnbIXpk8Uve0QRJfZb7DPsoAVekjerGDpGcO4O Pc6Adewm1fdMxVA1RfffpxMMaL4Vvko6JIZ2ukxIjWL747c61QqPh9lsYfHF 4/FiP1fsxZB8b/aSKvYp7l98lj5iyCnmTNxZ7CaBaMbkRTGUs3tcW+4kA3yl 66T3vBdDZoM8gxZ+DAjrkv8w+EkMBaK7ze7YMVfjLuZ+E0OPaN0pIdjZ663X lvvFEHlv1IcCbNgw1P9iTgzNz+0kRrBFVCUqrdeLI1HW39XnTuH61w0w8fUW RzFn+vsL/BnwfOnzmpyvOPo7dOxfOfaber0n7f7iSDdbZ4SJ3avPvW33GXG0 ZXHjtV5sHsPrwksp4uiXBLuoYgADnMzefU+sFkeFfyoMbmOzHlXFn3riKKjn tHduID5fFZZdONgkEJ2rQ7IE+8bvt4e8OSXQPVrzo4fYyM9/8zYhCdTI+vlV G3ZkzOOv1RskkGxZgjY5iAGLpSbohZEE0llItfTF/jfjzt+XJIGUMse6dgXj 9dftXjS8LIF+sl1n6mOnRXEM3s6QQLxiPDkHsdW5y+BYvgQ698BYzh375LrJ wMn7Esixk5yaij1MieoideD5xxv5R7B/Xb5aIi8piRbMZT5nh+Dz1l02/ris JBoYdVq6ji23+6rnI3lJJNmSJXYX2+FL3gZLZUlk2Si6mYndrpB3NVJHEqnY X28ewK5/cOXyD0dJFBSWyLU7FD+vD1mhV69LotAI3t5m7Ie3xWmDt7BLXta1 YXeEZu3WuINt+jvpCzbfuqzJ1w8k0VRClMAwdoxn5vHF55Joe43pLb4wBvjN pLsc+S2JDpzbK2qFvV8y1VRSVQplvO4zasdu5qZkwg4pxL6/uvgLtuHy1M9j GlJo0Pj+6k9s/d7Dp+v3SSHDZ4fSJrE17srfd7OUQgm6URSRcLxfokLkXpAU esld2W2NPcN49wMxpZBDnZXZa+yAI9Gqwy+kkJcJR2IH9oTZrtCMFilkGU6p /4I9rJ4tNNAhhdazh/IOYv9cdDJM7pdC+80HjdlO43q79Lf0I7c0yvzgr6GL fbOWL8jHThrJD+7QuIndf091+oW9NLoVkMhVir2laH/QeidpZL0S+/k+9r3L sUHtdGk0K37e/Qn2I+/loD2h0mhfI3V7+//iy4wGs+ZJo7rXFvnL2DORraF5 PdLov63t/NZnGKAd/Gdu6pc0OqyRrEjDPn2cM8x8CM83UafpiE2yNwwjTUqj Tz2ppnRsnp1PwxisMkjKkakSji33qyx8l5IMYkgc/nsNe79p0pnXPjKoar4g 9w/2i/LaM7f9ZJCXkOylMWx9iV9nooNk0AOLjIgpbI3feyP2RMqg8Rvppiv/ i3f+b8TNNOwjV7KFIhgw1WAVefqxDEr3JMnvwS7cI3lOlUMW6Q6f5T6LLV1o eI7MK4s4988cPIedST517qegLCqwpiTEYV/obDmXLS2LVlNDJlKwgwJOx7Bu l0VD22bjCrEPlP8432Uri0r07j1vwG4S54mtsZdFwofcHj7H1j+7JzbVSRbd 1ja/0Yy9+9DlWBMvWbR+9ueJd9hywyiu6rQsehaS2/oDO9faNy4lShY9Xl+S 04st9iQ3zjtWFjHPSrv8xuZO/Bcnd0kW7e6g/BzFjh2Xi19Il0UXBtnzJrBX aWbxnTmy6M2ygeU0dnhDaHxFvixyS1tbm8P+///HRUNyhveWsP8PlrcX/g== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-179.9057217894508, 0}}, {{-6.907755278982137, 6.907755278982137}, {-179.9057217894508, 0}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.5020885068623705`*^9, 3.5020885490647845`*^9}, { 3.5020886000647016`*^9, 3.502088611786372*^9}, {3.5020888639637957`*^9, 3.50208886945811*^9}, 3.5023557057203856`*^9, 3.5023583316765814`*^9, 3.5023583755710917`*^9, 3.5023594431251526`*^9, 3.502438805783454*^9, 3.5024388827228546`*^9, 3.5024391129810247`*^9, 3.50246502091598*^9, 3.5024650604962435`*^9, {3.5024651941178865`*^9, 3.502465212901961*^9}, 3.502465276739612*^9, 3.5024657762060184`*^9, 3.502466102639329*^9, { 3.502466525190072*^9, 3.5024665434000993`*^9}, 3.5024701305762987`*^9, 3.5024703827412176`*^9, 3.5024704312221546`*^9, 3.5024704614023457`*^9, 3.5024705129701567`*^9, 3.5024709181283617`*^9, 3.502470970302806*^9, 3.502473438208188*^9, 3.5024735435645027`*^9, 3.5024736507857695`*^9, 3.50247375629813*^9, 3.5024738717199974`*^9, 3.5024739182118177`*^9, 3.5024741612915583`*^9, 3.5024742779150934`*^9, 3.5024743410270605`*^9, 3.5024743942280474`*^9, 3.5024745863527594`*^9, 3.502474757153448*^9, 3.5024748110698614`*^9, 3.50247484133714*^9, 3.50247493064589*^9, 3.5024754164490757`*^9, 3.502475515899251*^9, 3.5024763325475082`*^9, 3.502476844579379*^9, 3.502477014136077*^9}] }, Open ]], Cell["\:0421\:0430\:043c\:043e\:043b\:0435\:0442 c \:0434\:0435\:043c\:043f\ \:0444\:0435\:0440\:043e\:043c", "Text", CellChangeTimes->{{3.5020882922310944`*^9, 3.502088300392561*^9}, { 3.5020886351257067`*^9, 3.5020886400609894`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Omega]z", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1", "+", FractionBox[ RowBox[{"c3", " ", "\[Mu]", " ", "Tb", " ", "s"}], RowBox[{ RowBox[{"Tb", " ", "s"}], "+", "1"}]]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086292714729*^9, 3.5020863559183435`*^9}, { 3.5020863960746403`*^9, 3.5020864160587835`*^9}, 3.502088337500684*^9, { 3.502088706247775*^9, 3.502088713481189*^9}, {3.5020887650171366`*^9, 3.5020887994731073`*^9}, {3.5020890319254026`*^9, 3.502089046876258*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s", "+", FractionBox[ RowBox[{"7.788741999267849`", " ", "s"}], RowBox[{"1", "+", RowBox[{"0.4310344827586207`", " ", "s"}]}]]}]}, { RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020864083853445`*^9, 3.502086416956835*^9}, 3.502088339640806*^9, 3.5020887156523128`*^9, {3.5020887686993465`*^9, 3.5020887998931313`*^9}, 3.5020890485983562`*^9, 3.5023557058003893`*^9, 3.5023583317385845`*^9, 3.502358375667097*^9, 3.5023594432051573`*^9, 3.5024388058564577`*^9, 3.5024388827988586`*^9, 3.502439113094031*^9, 3.5024650209979844`*^9, 3.502465060573248*^9, {3.5024651942318926`*^9, 3.502465212981965*^9}, 3.5024652768136168`*^9, 3.502465776325025*^9, 3.5024661027373347`*^9, {3.5024665255610933`*^9, 3.502466543481104*^9}, 3.5024701307473087`*^9, 3.5024703827612176`*^9, 3.5024704312391553`*^9, 3.5024704614173465`*^9, 3.5024705129821577`*^9, 3.502470918150363*^9, 3.5024709703168063`*^9, 3.502473438315194*^9, 3.5024735435825033`*^9, 3.5024736508117714`*^9, 3.502473756315131*^9, 3.5024738717339983`*^9, 3.5024739182278185`*^9, 3.50247416131456*^9, 3.5024742779490952`*^9, 3.502474341061063*^9, 3.502474394246049*^9, 3.5024745863667603`*^9, 3.5024747571734495`*^9, 3.5024748110848618`*^9, 3.502474841349141*^9, 3.502474930661891*^9, 3.502475416480276*^9, 3.5024755160708513`*^9, 3.5024763326255083`*^9, 3.5024768447353797`*^9, 3.5024770142452774`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Theta]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020872461072598`*^9, 3.5020872800412006`*^9}, { 3.5020873135241156`*^9, 3.502087319207441*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s", "+", FractionBox[ RowBox[{"7.788741999267849`", " ", "s"}], RowBox[{"1", "+", RowBox[{"0.4310344827586207`", " ", "s"}]}]]}], RowBox[{"118.6`", "\[InvisibleSpace]", "+", RowBox[{"0.445`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], RowBox[{"2.32`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020872724027634`*^9, 3.502087280702238*^9}, 3.5020873204825134`*^9, 3.502088395226986*^9, 3.5020887503732986`*^9, 3.502088801070198*^9, 3.5020890551047287`*^9, 3.5023557058303914`*^9, 3.502358331775587*^9, 3.5023583757060995`*^9, 3.502359443235159*^9, 3.5024388058894596`*^9, 3.5024388828358607`*^9, 3.5024391131420336`*^9, 3.5024650210329866`*^9, 3.50246506060925*^9, {3.502465194284896*^9, 3.502465213014967*^9}, 3.5024652768546185`*^9, 3.5024657763770285`*^9, 3.5024661027783375`*^9, {3.5024665256180964`*^9, 3.502466543517106*^9}, 3.5024701307983117`*^9, 3.502470382791218*^9, 3.5024704312911587`*^9, 3.5024704614593487`*^9, 3.50247051302316*^9, 3.5024709182113667`*^9, 3.5024709703538084`*^9, 3.502473438438201*^9, 3.502473543611505*^9, 3.502473650884775*^9, 3.502473756367134*^9, 3.5024738717730007`*^9, 3.5024739182658215`*^9, 3.5024741613605623`*^9, 3.5024742780040984`*^9, 3.502474341155068*^9, 3.5024743942810507`*^9, 3.502474586400762*^9, 3.502474757219452*^9, 3.5024748111318645`*^9, 3.502474841378143*^9, 3.502474930697893*^9, 3.5024754165894766`*^9, 3.5024755161020513`*^9, 3.5024763326567087`*^9, 3.50247684478218*^9, 3.502477014276477*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Delta]v"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020873377695026`*^9, 3.502087345456942*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s", "+", FractionBox[ RowBox[{"7.788741999267849`", " ", "s"}], RowBox[{"1", "+", RowBox[{"0.4310344827586207`", " ", "s"}]}]]}], RowBox[{"118.6`", "\[InvisibleSpace]", "+", RowBox[{"0.445`", " ", "s"}]}], "27.55`"}, { RowBox[{"-", "1"}], RowBox[{"2.32`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.50208734629399*^9, 3.502088397834135*^9, 3.502088752352412*^9, 3.5020888019992514`*^9, 3.502089056572812*^9, 3.5023557058603935`*^9, 3.502358331811589*^9, 3.5023583757431016`*^9, 3.5023594432661605`*^9, 3.5024388059214616`*^9, 3.5024388828698626`*^9, 3.502439113191036*^9, 3.5024650210659885`*^9, 3.502465060638252*^9, {3.502465194334899*^9, 3.5024652130489693`*^9}, 3.5024652769046216`*^9, 3.5024657764290314`*^9, 3.502466102815339*^9, {3.5024665256831007`*^9, 3.502466543551108*^9}, 3.5024701308473144`*^9, 3.502470382811218*^9, 3.5024704313271604`*^9, 3.502470461495351*^9, 3.502470513060162*^9, 3.5024709182623696`*^9, 3.502470970390811*^9, 3.502473438561208*^9, 3.5024735436405067`*^9, 3.502473650950779*^9, 3.502473756417137*^9, 3.502473871813003*^9, 3.502473918302823*^9, 3.5024741614011636`*^9, 3.502474278059101*^9, 3.5024743412530737`*^9, 3.502474394316053*^9, 3.5024745864357643`*^9, 3.502474757280455*^9, 3.5024748111868677`*^9, 3.5024748414071445`*^9, 3.5024749307338953`*^9, 3.502475416698676*^9, 3.502475516164451*^9, 3.5024763326723084`*^9, 3.5024768448289795`*^9, 3.5024770143232775`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"W", "=", RowBox[{"Simplify", "[", FractionBox[ RowBox[{"Det", "[", "m2", "]"}], RowBox[{"Det", "[", "m1", "]"}]], "]"}]}]], "Input", CellChangeTimes->{{3.502087352433341*^9, 3.502087360735816*^9}, { 3.502087393166671*^9, 3.502087413468832*^9}, {3.5020890729387484`*^9, 3.5020890763319426`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"27.55`", " ", RowBox[{"(", RowBox[{"2.319999977256317`", "\[InvisibleSpace]", "+", "s"}], ")"}], " ", RowBox[{"(", RowBox[{"2.3200000227436828`", "\[InvisibleSpace]", "+", "s"}], ")"}]}], RowBox[{"s", " ", RowBox[{"(", RowBox[{"2.3200000000000007`", "\[InvisibleSpace]", "+", "s"}], ")"}], " ", RowBox[{"(", RowBox[{"11.017440669788023`", "\[InvisibleSpace]", "+", "s"}], ")"}], " ", RowBox[{"(", RowBox[{"11.017440768513385`", "\[InvisibleSpace]", "+", "s"}], ")"}]}]]], "Output", CellChangeTimes->{{3.5020873971628995`*^9, 3.502087414114869*^9}, 3.50208840089631*^9, 3.502088756288637*^9, 3.50208880302331*^9, { 3.502089057866886*^9, 3.5020890797931404`*^9}, 3.5023557059213963`*^9, 3.5023583318525915`*^9, 3.5023583757771034`*^9, 3.502359443292162*^9, 3.502438806021467*^9, 3.502438882903865*^9, 3.502439113238039*^9, 3.5024650211549935`*^9, 3.502465060668254*^9, {3.5024651944029026`*^9, 3.502465213081971*^9}, 3.5024652769416237`*^9, 3.5024657764850345`*^9, 3.502466102855342*^9, {3.502466525734103*^9, 3.50246654359011*^9}, 3.5024701309963226`*^9, 3.502470382841218*^9, 3.502470431371163*^9, 3.5024704615303526`*^9, 3.502470513093164*^9, 3.502470918326373*^9, 3.502470970423813*^9, 3.502473438681215*^9, 3.5024735436785088`*^9, 3.502473651014783*^9, 3.50247375647014*^9, 3.5024738718510056`*^9, 3.502473918338825*^9, 3.502474161455964*^9, 3.5024742781691074`*^9, 3.502474341345079*^9, 3.502474394353055*^9, 3.5024745864667654`*^9, 3.502474757329458*^9, 3.50247481123287*^9, 3.5024748414381466`*^9, 3.5024749307698975`*^9, 3.5024754167922764`*^9, 3.5024755163048515`*^9, 3.5024763327035084`*^9, 3.50247684487578*^9, 3.5024770143700776`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Step", "[", RowBox[{"W", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.502088411829935*^9, 3.50208842012941*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0fk/1IkfwHEM0phy9fFF25jxwchRSSpb0/u9KEIW1WpVZBxDqdTii7Qk vvgmV0IhS4faHIlqKcfmGvcxOUIbZpVEjjGuyHe/P7wezz/gxeScd/CQEBMT 8/2n/5v5K0fa0P3aPiOjXfIot7Oihs+wcWR4Q+4H5cvZ9xmwWldxlcEIgo4f B0w/2iGsT3r+hNobDpaiREPtb/aQWXVdXYoRA+0LuarZx11Af9I9bpUbD5Fa vQ9rJL3g3fo735Z7kkAmbld846wvaD5Yu3Pp601werR6PSM7AHzY/mfn1W/B Dx26rInlECh+M3hv1iwDpiJPhBavXIGlMzYD09wsyNraFaDREAnmLYlacz05 0CSmM3NqWxyMpln8Oet9D74IDs06uSZCrPvKCeHX++B86ux9Zv0N4H/1Sp5S fwRpc58mbAbTIKCevm2y6Hd4EnRW6218OqjdeNM0YZYH4EXm2R65AxxdpHzm FkKU0qD1I2oOBObJls70PIW7clp0SdZDWNM/zJpQL4WxJxXVQTlPobeq3H98 tBTCjD0J++Bi+P1BWvXnojKoqOL9xHcoAduLti5jZq8gXZ3jaCj1HFLWlqV8 5FbC9uw2GdszpaCYwZOY7nkNUludh6YVqiC7MevCZ/UGOGDgydbwqoPZtGe6 72MboGXZjbfaVgcHuE2CzsUGsIzIa6XtqodxyvzRMn4jJEYHzBVL8GA32/b7 mKhmkLnzcg87oQHaC5clWJNtMG0f6KIT2QyhjfpWhi588HOzfn9+ph0eFr3Q fnyTD0avOFNlah3QmWZK0Wrmw05hKr3ctAM0ucdeqZi8gdxhG+54Ygc0UiK2 iCl1gV5I4IlNBp2gzO5XbKvrhhdizZIiRz4UFMb0+2zpA4c90/fWRXfBmOJY rJVrHzzdaqIWlNsFrACrfTrJffA5Quev2rou+G2vbLZgsQ+Gv5BG0lLdkNQQ 6+lU2w/ziT7exmHdECCIn7Y48Q4ipm4XvbvQA1myTVcV9g9CWIfHDoMDb4EL HbfGLwqgfhNLuMAbgHMjmwUlBZ9AvnRv1o4/hoDKjGC93z0Fv7SvWoYcHIE4 +Sbd7FNCcPvjjs/JjFHg9B+ppDTPQe+SWrvFznG4UBvBOc9agnH5+ovHKyeh yJd2WOXgCuSNGBAtkdOQfenM2DZHMRSX1rsa/aMQwrOW7WfHxZFGU377dmkW xPiD+CqYgpmX2ZurM+dA288z8IiuFNJH+25aui/A36LUn2TLpdF3ufmzG20J rEZOX066IINyqSbOG3u/gu3fCXp0OhXr59Y0nU5fgbFqThgvXxYFpXpMO1yF LQrdm8xc1iFXfqTBK0IMqSByHRCux4CFv/7t97M4Wkw4zWsclccSI+UdtiiB va/dxZ30FXDPz79OCDUo+Cy6xpkhUkDejsR09zkKekr5D7a2KqK2+5Dj3X5J dLt46RntthK2HhyQyS+Swq1cvVYb1w3opCbzIvyqNLYp6sv6mxA4sO/CL9rc NfiyIDxdn6KMPNVIzZt7ZPCSuK5d8ztlLLbsFnQw1yJ1INjyXMm/MJlz7Lc+ ChVHHjCTs0JUcHR7pH1BNxWTdVQlS4+qIttxUt7upSwm3Pasd2Wo4ZrtkrWv EmjolHyylfZRDRvnDwaIXNfhgvn9xayKjRiv0GK8bL4eBSOmga+jvsPmoaVP LSpymMM23Njiugmp0p55Z7/JYX6kvwLXgI7OU+WGPqflMeqomzVFREfjw0PX ovjyaDyQ/SiqRR3XnSInYvYrYNrm9PwWawYyeGW86UIFDK26nmZdysAdfb6P kVTEQxuP3m/UZGKta2Wsf7Ii/nCu/rhCDBMTzN1G5b4pYtZ3HM1mERNPdmhZ J/oqoWZ1bortcQ30KGXrBPYrYYLBa93OCg0cU/5C2W++AT2Fkh0NuiT60ss/ LDzbgJyiGUZMPImGV4bMFBkE+oQfXrZKJHHIu11ynEmg/+GSHtoNEuMdKmtr SQKjRf5xCSkkTpCZFkEsAgtMFr+mZpL4qO6Y9eAWAhf/XO1+8JhEBq3doYBN YEIn7XpNPYnyqRWuVscJvH33rNd/GkisCs3X0DxJ4F2/VjPLJhLPeWUIVpwJ fK6csNTUSmKzSbBHEeef705KXvwuEqMHjL1VThPIEqiaDQtIXGXm+34IJHBb STD93giJBdQMw6pgAr+P7F/0+Eiis/C/M7dCCLRhZT75NEbiyxovv0NhBF48 w6BPT5MYwNUMLIkiMGTvlcWnQhK17ZRM4mIIjFw3/MZPRGLXbokl7jUC0wrv XltYINGIOnhpYzyBOWGS3LIlEodnWveKEgh8bO9hGrJMYmJ/+UprEoElGnWb 9n0jEWvyKh4mE1gh1F5cXSVxMi89NDyFwP8BBlJD2w== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {-5.136144179624172*^-9, 5.396982187153511}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.5020884331011515`*^9, 3.502088806777525*^9, 3.502089089956722*^9, 3.5023557069014525`*^9, 3.502358332847648*^9, 3.5023583767341585`*^9, 3.502359444236216*^9, 3.502438807229536*^9, 3.502438884030929*^9, 3.5024391150471425`*^9, 3.5024650235311294`*^9, 3.5024650618053184`*^9, { 3.502465195982993*^9, 3.502465214366044*^9}, 3.502465278082689*^9, 3.5024657783241367`*^9, 3.502466104383429*^9, {3.502466527533206*^9, 3.5024665447881784`*^9}, 3.50247013277941*^9, 3.5024703840512686`*^9, { 3.502470432754242*^9, 3.50247046272492*^9}, 3.502470514294219*^9, 3.5024709201384716`*^9, 3.502470971692079*^9, 3.5024734401422987`*^9, 3.5024735448815746`*^9, 3.5024736527994814`*^9, 3.502473757640204*^9, 3.5024738730120687`*^9, 3.502473919471887*^9, 3.5024741639571075`*^9, 3.5024742809430637`*^9, 3.5024743452273006`*^9, 3.502474395634125*^9, 3.5024745895953355`*^9, 3.5024747586775293`*^9, {3.502474819124899*^9, 3.5024748425912094`*^9}, 3.5024749320369673`*^9, 3.5024754200214825`*^9, 3.502475518551255*^9, 3.50247633346791*^9, 3.502476845733781*^9, 3.5024770149784784`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BodePlot", "[", RowBox[{"W", ",", RowBox[{"-", "3"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.502088495859741*^9, 3.5020886108253174`*^9}, { 3.502088823899504*^9, 3.5020888778095875`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtlXk01AsfxsdMY8sNZZ3ftRNNpmHskd83EkUqy1SSpAYtIilhCI0Rl7Gk xdaVxEXxljfKtXyVpOXm3q4WhErqhlJI1nF7z3n/eM5zPuc8/3z+enQCQj14 VAqFEv0j/+sJgxJh6iUCtZvGOP9YukKpm1abWSGBsj+xrDgcV9h+NI/ee4FA m6ggWz7LFRoxU8DOJPBIxStHBX1XEO6MTeyMI3BLZLuXtaIrqGdx4zR9Ccz5 duX46eGNYD8nffyGCoHmUdH1RkUbIflpCK/7FwYuCst32C+zEQyCquue+Knj jb4XWqI7LhAp+2VVrZMa1j4S0X2znMHJ59pqHY4qsjbtzVgeuB40s9/eNpFS wfARlakcHSeofKniZ/ZFCeUeHY2/OuYI66TuHutuWYZFRi3KwRUOsP3tsA49 dymGxo/9Rzt4LWg/XjauK1DERZcahxNtASYKa6wGtymg6p6zqDS8BqbnShws Ti5BcQc/KyrVFiRUX9mX7ZDD+XtzAX0WNqAtQdMNoMuiBj+wN7fKEsqkjTbT uqRwrKVC9LuHOTi9ttv7KZaOyco+G7xaTaFHwbWoj0XD8LMazL2CVdDlt82w li6BcmuXXy94sQJ6pkuZ13bNNyeF1U8E3teHzrD8vPqFqeYBA7kNAgVtmE0O fblj3URz6dq60uEJZdAtPvTnEvvR5sJDNu2NatLwuXxMlXbmfbOwKMV8POgD ueJd6KSFT3fzSKCU5J3vM80hzc/VTfJbmseqTimf7fnhdbtgRe4fSBY4OM89 i1DFhQsyCx8VesjB3aWVbXu1sH+iPG1ozXvy6rtEt74vuvjulXycXdUoqWo3 Faz91QCTTNoHraMmSOpZX7ueOCNst0qbEj6aIl2Kt3nsf8jEfQ9+/ejUN0WW LQ70r+5kImVnTfeir1OkNWtJ0kwfE23iuhsSVabJhnGqqGiciRWtRglxe6bJ Ec4TGltjJaZvvSdz/Ps02WHzvj3syEr0OChm8PRmyT6BduBeLWP8PKcop285 S2YbFfecZhrjLyKD+bcus+T4ZmfPOgtjbL3u1u9/eJbUNH/SxnYzRoupvMu+ t2fJTnrsquwoY1RLsjL22jxHnvNnB1s/N8bei2FrHGPmyadp1JqB8ywUkeZz d9LmSTRM8cu8zEJ4/b3e4eI8ST0fZu9SzcJinZPWDi3zZHwtb66rjYWBJelm a6XEpMxaQ6XTkyz8XF6xgjwjJqWXCUV621ch5eY7ZdvKBbLz1jLlGX02Xvf+ rbO+YYGUnTdpX81hY8DkwTOrnyyQuUEpohSSja1W4wqrvy6Quh/flm/1YeO6 XoqwgKBAf+2SIFEmG6X95RPy91CAbMr/9GiBjVk848jcTxS4ai2sG40wQeGW IRvWJAWkn8au9+ObYLTtb3MopsBPyY1NnadMcJ+ifuI/8hIglWGd2pVtgpaN RLoVRwIoTecCHK+b4CulxZefHZeA/V13T14cNcHlrR+fKFKo8GAxoXcp3BSJ 6rKsK9JUKJvc4cOIMUWFPJ6XjSIVGr23bCw4ZYrToW+6/HWpsOhnu+D6HFN8 THS9q15HBf77Ah3/OlM8crR9ZlMKFbLoMTxvsSk26JYtT11Kg4y6Tb2UMxwM c39w7yVBA/kbFbsPFHJQP3p4n6EBDQKlcsv7yjiY/hf7cqsVDcKZNoUfGjjo F39La8GXBm8qdWxjPnBQou+BWkQZDaR3ReRW2Jvh+twRWT+7RZCb7TRg/M0M /5TnjJoG0sEy7o+M4EQLlHc0/vb6MB1qUznOv4os0P348tmMSDqQ+6On+/Is 8NErhtTn03QIEWvaRdVYYFs5Tauikg4vC9Nr1AYt8HfHZ+66X+mglpQ2L95g iaWRJ6qW8iVBW3tS2YFhhfz+ppDxLCkI9mhRsvvbGhX7d9IPjchAADnHvzBq h/YtMx5iTTm4V5SyyzETMGJjUWTK+iVwUEuS71vvgA8lKrt57gqgqfFC0szQ CUs7hJ1neIrAu2+t/eGYM0beHPLRyFkKHT6piez5Dfj4819ueo3LQPK1Ye8L vhuGqNerWz5VgjR3weHyv92R6ss8WiJWhhpP9TG96i04kJFfpqWqCjsquMbm /VvRRTXTWZWpBtdmgBYj44nFtXIRB7zUYZ0y/57VJi90cU6NeXiAAZdDOj13 x3jj3aramCuhDMh7oZZfEu+N9ioDMfERDPDQWDrwMckbzQZt+ZZxDHhz6Odj EZneqHnqE784iwE+2/ZcSrnijeNNW+KibzGgkeWo/t8Ob7xoqZrAlCSgofRN jIw+F9UvOibQFxPQ1N343H0FF3PoYQmv5QloO6/FyVnFxZTO9oRz6j/2Vw4P adpwMSI8OpHKIuB7stoec3cubqjqPdXtSUBqTSZv9wkutirLCm5uJ6Co3ry9 JJaL9rGWgsxdBISfdF05lMhFc7cMwfogAtZ8eTwWkc5FzSFIuhFNgF6LRHJq MRdzt4YkpZ8kwGhS41NHGReVbucmBQsIOJRc4ql8jYsyp8eSNEU/uHFEp6iO i4JRTeF0NgGioKspgw1cFHNdhZ3nCbh64ulX5h0uRjVFCqsLCAiZ3uUTdp+L //9jaJ3YdPfmYy7+C/+RkGk= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-91.19859392750647, 54.428961151625344`}}, {{-6.907755278982137, 6.907755278982137}, {-91.19859392750647, 54.428961151625344`}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2nk4VP/3AHD7voxtxiBbZYuStRT3rUQpaYYZyZJthkpZIxQlVIqQKKmk kpQWoY3m+BCpVEqlrNmy71vW3/v7PL9/Zp7Xc+d97r3nnnPmPc8zal4BdBYP FxeXA3753/vk6jsJibcUgRqj904uhgl5u1SqDa8rgt/cpVpZ7L0hWfwtVxTh RHF3rQx2OaTErUtRBCd96xop7ASXE7EN0YqQJvG7WBybmsqMVnZVBN79xD5+ bIsFobAisiJc47d9OxHNhFH1uBIXaUVIH39+axw7d8fyJJ+EIqwb7j0+hi2Y ORXixK8InMLkdSPYX9Z3BC1MKMCKrZXx/dhevq8PW9crQE3itcl27DNfD7N+ n1eAPrbE14/YvxtLTTTOKIDZoyXfD9i6bcuCwbEKMGxstVD7v3gDqQXCEQqw UatGpQZbgb90ZANbAag8R+kV2I9MlyIykQLcoj70KcH+kZ2c7DhFBas3XXrZ 2Fq3f+7PGaWCvvLJxCzsqPuq6wcHqHBojV73FWzV0qJvpzuocFn/Wfpl7IOf f8g/+0wFpdi1zcnYS9wqt6UKqKCp+0PkFPZq38fPP7lTYbXu1Hdv7KIDFxgH 91FhrPogyQsb+R+Y4GdS4Yv90HYP7H1BK9eZ21GhIp1U7IqdEpWZ92ATFXy3 XQpmYM9djLl8Vp4Kouuyk62xP72wD9nyVR62T9QbaGK7vNaVaq2Th32KyTqr sXvLhR9H1MqD91tx1ZXYvJWV/U9AHr5W2fGpYG+oM/VSeSwPAm2JT8n/e15/ VGgL5+VBqKsymx87XGR0bek2eYi9OXL7zwkmlC4rN/laysOqW8372rCnJ+3O UM3x+uN0yRbs0LYHbceN5GET5VNgI3ZgsW/K1pXyoFn6Uu4z9kH3trEvXPJQ nLHc9RrbvehT8cBrCmQlpMRfwr5+b9Hj+nMKjBpv6E3Bbs7WFbd/RgHvH+Lb k7FdziSyigoo8PK1yfJZ7L2u1uSIqxToJmvvjMamC7wJFwinQJzkd6Yf9rZ9 hWZqBhSI5HqjYYa9al3BsaN6FEgeHPlrgs3Hd6+0VosCnpGMu4bY/xXmGASr 4PMX3pfVw0bc6TqVYhQIKJqtUsHenB+pwPpLBpcX6/34sA2mbebys8lgHjWV +f44E6Q/WG1YzCQDb1DGj2rssZuWYbRLZKje8JVUif1kx6bxf+fI8PoO/7HX 2HrX1/bbhpNhxu896SG2lpXc70EaGRwc1/hewFZO63ipL0iG7bULJ3dgb/AO qWrgIcP930PB27DpRnyfjy3JgYlFkIcl9pkfq7tgSg6Mbiiu3Yg9qnBAgtYl ByeFwy5pYVfcHvEKqpCDxxr9pwSwfUoWRIui5KDfd7z2TRQTohOSyMxwOTBj sVa9wr7ipKw2FywHtK1vI0qw6/4RJlsOysHbQGO5h9gmFqc9vu6VA71uM4mr 2EI1wiXjxnJQfLOdNxj7QSPZ3XBUFm6lRjeoYLPPHZ2LGJCFHr1JCQVsVbOG DOiRhTpO+hZZ7PRrqZ/tWmQh3tPkstD/rsddzNLvvSwY1JH/jkbi++3iXnX9 jiyoVvGbAPbsyGCfgDP2171WzthFOTsT7BxlIW6x4hId+zCtQD3dXhbSuoim ndgdRb4uatayMO3iSLfA/nC04+MmQ1ngKvvRpo59Y/7n40BxWdgT9zWgP4IJ VoKVR39XyMCwZt2KEOwnBSGqpuUy0FssceoQttLuVR8uvZCBVznhTd7YU+nx qnaPZaDiYMZRR+w89e0fONky8JS729wYW9iiTvVuuAxkyJ6VmzqG+zf054cA PRkws/ZOP4xtJn827KOWDFS2lNb4YOe93qCmvUoG/O9/GXXBjuHJCutQkIFl G81Vttj6Ka5qDCEZKIsnSWhgX3rwJ8ysUxrCpld2NYXj/ugYUOO/Kg0Gia2I wF4+pX/1abo0NG1DVcbYeWpHSe4p0tDV4myuiz3psbRUekYaovnPkqjYqW2k Zr8waWjZfHnjeBgT3jcbZ3x0kAaNXSEXcrE3/4wRSZeQhtUl9zrmjjKhM6zq FBKRBiW7EwKj2Ilk4X+D/NIQVZek3I3dyEj7u21RCs4c1V3zGftow52qmQEp cGueKc7FflRfG+1SKwUthY4xNtiqH2Um1OOkYG/N9ZQzoUzw3amxEBQjBcl/ h2QjsR+938BfESkFPyZ8zvljm9e6UfYHScHMphNbaNj7qu9tuuYuBe8e2ExQ sS/DpjiZjVIQ2HfaIj+ECSIl3nJ8wyTYFdg1+jyYCTSjMGWHPhKEhVs75mNf eXZWM7eLBF7S9nevYGsWFW5ETSQoebAoGYFt9XjG7fg7EmQcPcK/ETvm/vm8 yVwSmPCZuZUE4Xxef2ba7USCj4pdKjcDmRBG3Sce50CC952RKBl7Np2rU92e BFUqF3efwF44b5fsYU2CtAetBi7Y/JF/u5qMSLDetJlKxiYzFdO+SpHg0jzF /mwAnq9KAr9iMiVBqoQP3I7g+SvjEFeeLAkk142+ttjHRHLWzcdLwocho38m 2KdmNyaEhUpC6u2VLZLYaQ2HDQ/TJIEabZcLh5lQfOF70j5RSVjmHhFTxv63 cGeLcYwE8Nz4VlpzCH8//7oscjNMAuozqmeeYr8vSfgqdEQCmCec1LKxs474 eTW7SsDqsGG9QGyz9jWxp80k4FeLjg4FO6qyqKJ+Shz8ObQrHgeZsHgO0BF/ ceCaNExt98Pzgf1UqNFbHIZ1FJ/VYH/akvvF0kUcpGu2vXrk97/+PO0hZysO 3Lrj4cexLQ7bnCzTFIfSL1GFZOyYPZ84Ip1icIcr6e82XyZwU5ot7jmLgYJ/ 53/JLCYUFPnpMPeIwdO9oz0B2PTdU3L8NmIgx7/Yswc7N15iyMtIDHSuHY6U xraaRNeUJcXgxKxQ/yUfJpytvztzuUoUtL0Dqi96M4F0IeBJ3DpRSLR6uemg JxNeaC5cM9QQhb98dxOtsT0rz57pUBIFZb2Rx+rYRXO33JGIKLw803z8twcT HA80iC10icC7jxyF7dhXrDceCMkSgdw6yU2K+3H9c/Oqe/GLgN61uTs3XfH9 Xn6e92RBGNfdoloEtqu2/5rlCWHw+aFwlI59hfbdKLtDGJrWD2XzYUvl3rP5 wRGGJ6qDQ2wXJvBs3XXYNlIYVOaj/VfuY0JX3OUXBiNCMJ38PTHSCR+n2pqf 6hGCN1WqAbuxVQuXKj63CIESd8hKdWzX774f/D8KQaaW6/w7JhO+rzZrzbsv BD9UY71ksaurW3kVfYRgdMWBtluOTLgnpGXP+0sQvtwRks6gMUHA9dhMxmdB WDQrtNuP7fP43U2dakH4S6varoWtyjwwSnsmCON0heMv9+B6ul2QmpMkCKeP 8X1utGdCsoVeg/kWQbCwvPVHZDfup1AD52MPBMA5LSnezJYJDTWx3GK5ApD7 9rHc/A4mGCp+u3/zigAUa1JcXmOPVoTMVccLwP1YJt8m7IOSJdfkPATgV0Zv tcl2vB8pMG0tkhUA3fMXy1Ws8f6hfbP30Al+uNn+ravYEn+/UddrFYbyw+Uz V6v8sd/TVg/5H+IHqfcCtFXYuyvFwwf38kNK9d4jaQjP37zWxAFDfug9YPPk IIHP53+yqK+PDz7b282LmOP93Wwldw+DDw70fuoR3IDrcf2L6ru7+MA1K+dq sSkT5A4+PM/aygdq7O2DHthZTely3fp8MEnzDHhhwoTbb1jaXaJ8UJ6X3O5l jPdncYK0jgpe+Ks/LHrXgAlNpJ05rXq84Jyqy2jSxfuTLb5L5qt54eufr7mn sG1DTrteV+KFNSZiKZrYr76/lncV5YUIu+s2wWvw+bJ0U3/18oDa278qvDp4 nq6SiG24zQMmsoZUaU28Hzet935P5YGCruYNHao4/oGhCm0pHriuxFMQhW2b Jax6TogHXvPLFcpiv1qwbLaZ4Yah5PW+21Rw/Ioix7cN3LBL/tCNWytw/J3p 2+AiN8y8iXtipcCEX+5OmqX83DC7LVTQQAbnx17y/r4FLujadeV3kTTOP1Gj szzOBVnDC1RD7Feqpmu3t3PBjQPdv9dLMSG7g2z8+xUXvHC/SteSxM+X/WPL UgAXBCb7xM6K4HptKii7ULzMYTt38arx4PyVKcD3W8scOrlQJJkb1+/1xErl i8scb7q57xwX7v/9B98/ObDM4aQVKdcvM2Bnp3Zjg/Iy50PQi6CwRQZ86c+f UDq3xLl4q3n+5iwDmv7l6RS6LXJut5bLHBhmQOkHtofxrkXO+eS1d98PMSDt ukZGudki54g65cIabFvLPO5PlEVObuU5p4EBBrw6e7dxuH6BI5bKqvfqY0AW 5U6CvvUCpzPbrUi/iwF7jW91PFs7z9F/byi99RcDjAQ95TevmOccSXYeTmpk AOmX6u4q0XlOg/AZocafDHh3POdlQ+8c5+W91okDPxhgWnUzZSp3jvOf7a2U uG8MIDvcsDClzHEgfcv69DoGNARey3q1PMvpXazwpFQwQL8ijVI3iG3fqmgK DEiSSkxv+zXLkbsR+Y3BYYB10bFkvuJZzqB2vUlKOQNeTjBid/vNcnToMo9n XzLgRhjpYMeXGc4py6pDmUUM8Dsev1Ekd5oT5v5Vhu82A6o+Hi9VujjNMW1s 3MWdywC1FaGG645PcyaNEt0Xcxjwu9xLz5E5zbnyT05w/AYD7JYJtRsi0xwB +de2dVkMMIidEzIImeKYexWetU1jwPyZgEZnq0kOTeYM2ekkA1RvP0quWj/J ET/zxd8ghoF/9w1ZrVOZ5LRIpcSIRTPgwuShp3xzE5whnsjvZVEMUPb0S3z8 eIIzmktSlQhnADLz3MyvOMHJShkhBx9mQMIgPefJ2Bjnc59WrokzAwoE05iK bWMcp/NjMn+dGPBZvV4s4eMYx3fSmZrBZIC8s32Ey70xztvgz79GHBhw/+1O uoDbGOfAw5tiabsZ8PGGFZ/ru1FOc0eoTMpWBqjn+n+RsBjhhNjf9DugywDL V4m3vBRHOPGOfBd41zDA42t+cOnsMEd7OtcuW5sBN3m6Zd2fDXMuf9p6r1aD AUrebs6FWsOcq/eUMmTUGCC3anfHTpkhTmymXoi3HAOE8tZNnu3t5/Tw+1QN LDiC5hu7t81v+zlVtxtznOYdwfrHoQz92/0c1v22fxX/HCFeIH9Do1s/p8U9 fUXatCPw+Kqe0PzWxwkepkmqjjrCvKaUQHV5L8dL6nvZWIcjDN8fp/Be6uGs WNA5wapxBAlOTPihwz2cvjD3R8feOsK6BrGf32x6OFwJhpPnKh0hcEkj485C N8cmwPVlHscRJugustbsbo7egp9o7XNHmJ2vJJ3b2MVxfi/Q/fieI3Dvviws 2f6H8y9GHJbjHUG7K2DaeN9vTp96mHrMZkeQ/1obzSv7m8NLN7AyM3MEAVgp WF/3i5Ocn3t5wtQROq79pPhb/uK4Wr2p8TB0hCwHYmOuViPHWXD04GodRxCr lDguMfOdk6/x+4sTxRFGbxVy/71UzzkVJX/ae9QBDnN+UPWvVXBMI5K+W153 gKWX2dpX64Agt207athHh+Urwst9pCaCQrIJLVekw5b/gh9cZjYRQu26x77K 0yFuoMnJMruJGInw/NMrRwcRi0dPrmg2E82at8QUSHQgd9K9bCxaiEdur3qT +eiwVi/77Z1DbYT3Aweej0M0eOxBqV7X+YfonRk486eCBnumdmbzC3QQFzlV OzZwaDB+7mRwk1YHcebhnsbUMhoYP+tTPnOkg7g/cf6C3XManstl4a3/Ogir ryMPeh/SoKbAQzuJ1EWs/G1d/eIKDdom71/oN+8h6KSIJYUQGpy8ENDwwLuH OEqeLC8OpIHqKmOlw+d6iM+Xyp46HKGBhwM8GGnoIRQLBI/fOkCD9qc/3k8e +kus13+UEO2BfYRXePlqL8HcrzdsZ4/jCdTuAU4vcczZwmSrHY53I/nKqe5e 4l3Srk8WO3G8OqoW3/o+Yh/F3WSHDQ3+rNG3EX7XRxRHHmp7SNCgo9c1Xma6 n7DiW3mIs54GsSfV6xoUB4jg5ZI16vo0UJfvlc2wHCAuTk64XVhLAy+bkDvy SQPEISuKR/gavP7uucoVqwYJp/d2P++vxuvN7UXbdgwSo8/Oqdmuwuu/yzrk BAwSOn2Xj4yr4/V8OR3qrweJHwInnV1UadDpVcqtRR8isjV3+6co0iBuLmpH X/gQEb3ue3WwAg1WpVmmFlwfIh4rBxW7UWngU/FRVa9viFA9fzXFjkIDPuc0 v2GJYWIhcjCXTqbBnVGnJ4+Nhoki7/aLHnI06FLpJAxODhMf61pQpgyO/zz/ zMTdYWKz6EEtkMbx7Y98Lv4wTET3XFs/LoXjR/9zN6WMEM0p50aCSDg+mZM3 u3mE2GwUXsORxPEL44Zfeo0QvTsPC1Kwu5olozc/GiH+Su3l7xCnwWTrNge7 byOE78Pv7nux+f9EabnPjhAKilJijWI0OD/WGP1cYpQY5WGv8MS+NB7SR6iN EkzzlbcnRGmQPSHh+M5wlPgXkVh4EfvO5P03e6xHifz2z7uMsR9OWWn/2jtK ZD6jpnaJ0KB4uu2S56FR4vtYTOJ17LKZyKW+E6OE9JzoDg/st7NyB4JTRolC vRfNutif/j35Npc7SkilBzB4sX/M7bQ4XTJKeEeLV3YK06B1vidf9N0ocX6N m/En7J6FUzLpv0eJGH9q2X/Yw4tK0UpDo8TU9kF2BfbM0vPeO8ujRNidI9ve Y3NxOTjoSY8R5Z2avi3YQtzD5SWrxojotKSmOWwSzzktC9Mx4qIwb5E6Pr88 76pL1TvGiDC5X/8csVX5OIu7XccIxnW7/1Kxtfn3+f08MkbY2J5X+IVtIDD1 df+pMUJ13X2pNTgfZoIp5r2XxogbgQWlZ7C3CK3JD8wbI3iGT8iPYNsKV0v/ ezFGKPYvbvtfvukinidOfRgjKopH7FqxXUQX/gq3jhH/OfISbPy8fMQy6Wmj Y4StwTfNf9j+4gblCrzjxMOKTnKmBA2OS/qlrdEaJ9KEDlhO4ucfR+JdfGY2 TlQOHb36DNfLBakbvpvtxgn1jRP60bierss0bLYLxp/XOcI0xvWXJxtw73vc OFG2y4ZLXZYGj+REpN0zx4mVOjZqCrhe31DQ3yNl44RCrdeyLq7vavkm2syn ccJ05aWfNvL4+VHDymL+jBMX30u7HcH90Kb4MDVFYIK4vl7sbivuHy5V+c1F eyaIsFKfDDs1nH+1Z3lm3hPEz2hLmxrcfyT13VKVRyeIHT7VYna4P9VWxfV8 y5ogarO8BU9o4vxpjaZMdU0QZ7fVSQbifrfVPj9/YmaCyBRLe70TzwMHHQ22 gMgksaZsQ7OhAc6XrusmyrpJwvqzaIG2CQ3i9d91b4iYJFaNSxY9tKBBLpJR jk2cJNoMVklWIxrAHnfmh2uThEFQc3L/FhrMBU5Wu73BxwMIeQaeT0eequbH 8k4RtkLHNj3dg/ul4lD7B9kpYsMT7sxVDjTIry+Vl9OYIsYm85i3GXj+jO06 d2/7FLGnVkatch8NmAYRBz8mTREycfbFF1g0CNlSlSt3c4rQbdrG6+pHgxS6 ZJP7kynCc4/5mMkhGrwPvrtz7OsU8cks+61kEA0sntXrkuWnCduaKeHdJ2ig YaQzsj93mnD+lhPMg+f5VqujmvefTRNDeRWFydfwfHWE/eNV00SySH6vxk0a ZIUyv8T9nSbI+RNBUXk0kCiJfXpfd4bwyNdwLinB/WLcFDJROkNo6AraBv6g gay1xsPN72YI3hWHb775jeubGdQV/2uGyAlgmlLbcP2FCTLkF2aIFgvpTRN/ 8fwvNTQxt5wlut2e/DGbo8E70wuzCR9mCfLM3GsFNTr41N7s29Y6SyR90ynP 1qADl8uz33xjs0Q5WYuup0uHjdG/y2LJ/4iX625vjjSlQ0GV1qloz39E2blB 3crddEiivRUOm/lHbLU7ny91kg46nY1zRiJzRG1YudKJBDpUhw4OTCjNEf1V R1bOXKDDUqbMp6Atc4SguNMfchYdAls90w4nzREVbfmdfCV0oB9aUmCtnCd6 bx+IvTJEh+EFKbFVJvPEMHrWMzBJh/PJqxc7ts8T8ZvEHtgt0KHq6a42jyPz RP2OQLRZ1AGMZ7Nuu76cJ87HxYi81XYA+XhTXUf7BcJJz68x5oADtNwINN8a tUhs6fSpYE04QDJhtPDfhUXi05SSTMu8A6D2mVdbbiwSd5+dk/Tgc4RctZgN WyoWidLXI51n5RyBfSfJ0FJwiYj+fWbcZ8P/9lsF2sSlJeKqsmSP+UlH4Crp ktv0YJnwb/TwWC3PgFSWbvjVIS4UV9CT1c1iQsKe/o1601xIvu/p2yeBTIjc lL8AS1xofSi5+3QU/n0utSq2V5IbVZ7l4limMsGkXDHJ1IAbzQvbCyqUM6FZ VvT29zBuNLPOvFmP7AQaVX2fpLh4kOF+hzesOicoU7+nkSjNiybEQ4xmdjrD F0mDkfVsfmTwuORsZYErHG97c3giVRD9aTEye128HyIdVuxxuyaItHfVedpX 7IdjNVEGNXcEUXpH1aaWuv1w9PGGmazngkh3cs/37p79cCSm6OSWFkFUvTSS 5yjmAZ4qeZdStYSQjW58Ybi5B1jvT3q5jiOEgp9HH5S/7gFSbS78/oPCaCpV SHVgjydk7UvbbTIljHwr/pMZYniC+o93mVxLwmh72pmIgX2eYFRnrHNZUgRV JT7PaPHxBOZrSfs3BiIobmlsLuOYJ2RnVl4hRYigmci4ArebnqC1Z41uCb8o Wg4faDXp9wSLijn6krIY+sJdrKNw1Au8nZJisjXFUPjw3wq1CC84O6Ty0Exf DFmuaJ5YfcILvlK38YdbiqEadU3dVfFewAq++HzEWwyhPz5is+lecGHlKqU/ +WKo3Dg4aemZF/yKt+uuNBBHIlwrrl0c8YIlxXYpr03iyLs8u1d3wgvUi4It uKzEkdMrofnqaS/wb83M3MwQR6+t50PHFr2Ay7RjR0m4ODpl4dqvIuYNGr1h j/LKxJHM9m92XZreEGqbE37OWgLFBvuqUNy8Ya9a5skOewmUkDErm+HhDeaz Sec2OUugteOxMVI+3iCQF3Vt6JAE2iVgVL540BuucDtxaKkSiKHkpvLwmDeU vRAXVGiWQD+LHfK9LnkDn2ZURkGQJEqPDAvZXu0NvYtBN3mjJFHm1Zct+2q9 oa7BL981ThJ9NvoifvCjN2TEMl9JZEqifOE/tdFfvUGrdX1rcBlez5U6d6rV G/JsJ9Ou85LQyubUM2NT3vCe+8Fv1m4SKl8tefeMug/wBKWl/UcnoRbXS6Ii q31gY3uErYoTCeXG6w2c0/SB/DfbXzXuJyEJkqJyrK4PJET1XN0ZREL+7oLJ jiY+YDml5rw+nYT+ukwfPr3DB170Xvm58IuE2udFPlGO+MCo08mLzq0kRFlP 8bUL9AHNGl+b0g4SqvZven0y2Acy7po8DxggIU7eo5z2MB8I9WrI6FggIYVI lBIf4wPrmiWZ71SkUP1qnvesFB/I+5zQcIklhewSdM8nPfEB8/05c3YHpdCx lWVT94p8oGH4papQgBSKuIy4odgHeCWG/I8fk0JiRCNf3wsf8NjlwM86L4Ve 2r7iVqnwAYVaFROTp1LotXFer1K9DyT/9yKzcUEKUWTevQ0c8YHV9K/ladzS aN3TxfatYz5Q9megc5eANJq9fuyv7IQPDHCp6FdISiN+G1nOk2kf2E7Ev7uv Lo2i9uz98XkR57eM9i9yuzSyXWxPLBRlQXhJ/74V6dKoRkmgeWo1C1zpRcEV V6TR6EKZ9mlNFmwZiUhkXZdGZ3wqSyW0WSCmLfyqME8aCedYZqjqsiA3W5Nq 8VIa5SiZ3VxnwIKPp31+urdKo6XNzKML5ixQp7c65GjJoCkXlXI3RxYIjtw9 ZKUng3iC3x0rZbBg8Pzh073rZdCOH48fijux4PnbhSL9TTLIaKDv9HNnFuza qChdYSeDvHTjlP+54+tV3fvlT7AMWlvdEmx8AJ9vuH7XynIZ9LZj9OX14ywI u8h/JbxCBj1NCU4vPsECNf2NnR/eyiCZwMFt76Px8aCciNBPMsj552WD8ZMs UJ08kve2TQaZXVB0NIpnQeg/US4/HlkUP6zBiU1igRKf9bOHNrLonPGY0Z7r LKi+E7HEtUsWsSvrdK1usCBoW+EOxh5ZJLJ/VMX0Jj6eINu+uFcWVWXsWKDe YkGgcKeY/UFZ9KOxteDbHRZUSZxkj12QRdmOH99RHrLgMPUV1eSrLOo4eFKp /yULjv1W+fb3hywaipw9VP+KBbHX4i9cbZJFCT7Vj56/ZkHGCtryQpcsqk9c K3OqnAWg1ttVOSOLNvUHHxOsYIG0DvkJbYUcYj17+KqzhgUvzIKtD/vJoaeL 4qIdDSz4b/7nsvJhOSS6PX75/necvzLzl1+C5JBdy1bRoB8s+GMhrGsUJYcM 11X5L/xkgcjWHKn5JDlEqq0LFWpigdvOT81nn8mh3FSdE9PtLOBx1Qm5sySH 9r/6wlg/yIKvqgv7BXjJqPJo4pOv2Le663b5CZIR+8Vdl5AhFqCAIA1dEhnJ fpi6WzTMgujYF7+eqZGRdtZpFe0xFszlW6NKKzJqjpbcPj3FgvEpL/GORDJy 3B7LIC/j639lNLf1IhkF8NQr3cZOjRH4e/cSGR21KLNdx8UGfeECOJBNRrXx y83buNlwRGksZKyQjGyXjIcO8bKhf0vMb656MtotTLLNFmRD58Vr91QoFHTc 1hylSbKBy0sx4ZAiBW1zXc4TIbFB2eiaz3MVCloqF06Kxd7XmKVmr0VBGREK vwKl2PBFNeta9EYKev6F+6SNDBvKnl652OJCQcK02hMtZDZkfLscfi2HgirD xaoer2BD8V055t87FPRq+pw0VZkN9eGXjQzvU5CXu+foKWwxpctj759SkGDC ogtdhQ2xPumH5v7D8bmHlodU2RAwlbbfuZuCwo1V/pBWsWE7JcWGoiOPeo7n rRTSYUO18JZ0WCuPZHv+iPhjb12YaD9gKI/s6OrRn7Et/jhFlm2WR/kX34tc XsMGwwcqhZ728oidaflBQQ/fL/FY+mGoPKJcU3OR0mfDFPtTC+LIox2mZmse GbMh2PmkTn+lPBoU7DjPZ8KG0Z0G4ZfeyaOgXxvO7sPu188g9dTLo+WxSga/ KRva59y2nu+SR1vmuvcwN7DhY/JQ/ndhKmo5vk+nx4wNuaVioQcdqeihY6Mv EGzoeqgzWbmXivJLBBUEEBs0b28PXeFGRUqjeSd3Yj+8GBf6hUVFOW+i/L9j P/dbCDUJp6Jba11qui1xfIXBozxZVGT7+sXn2a34+qM/hGe1UdEK72abfhs2 bDjaNzPRSUW0Aj5Vze1siDwkeMyul4p2rTUo9cbm2rv1GNcYFc0Ev1rRjC2y /vUxNo8C4q83/1O7A+ensyDCYLUCynIVCL+6E+ffJjHq/UEFlF6ytlTEng2V j0qj7gbgz/cELG7DtiB3Rp0MVUDOI6MLJ7ENuzcdN4lWQP364hrT2Mqnh47n piqg/RrSOi172DDxZk905AsF5DKnsPUGnQ03TCindAQUEUVfbWKYwQbqja2n +EUVEbPmc4cakw3p/IGn2iUVkZT893RH7HMN705lUBVRX6+45Uvs0ODIWB49 RWT1n+1/MU5s2PGo5fRvB0WUEuZ9j9uZDVVyInElexWRa1JRqz62xQmTuBQ3 RfQhvrF5P7bRrotx1r6KqMGvfG05tnI/ii+KVESbu9n6R/ex4SrtcHxSjCJq txq4m4st+/JqvF+cIhJ+ze76jC18djxeOVkR6U7vKtd2YUPciHLCvzR8P7Ob 9jKxl5g7ExoyFdHK8zrlsdgRb8ITHmcroncC+wYfYf///6NQYohoz2/s/wPB Shp9 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-178.87047102200114`, 0}}, {{-6.907755278982137, 6.907755278982137}, {-178.87047102200114`, 0}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.5020885068623705`*^9, 3.5020885490647845`*^9}, { 3.5020886000647016`*^9, 3.502088611786372*^9}, {3.5020888115878*^9, 3.502088879090661*^9}, 3.502089094439978*^9, 3.502355707098464*^9, 3.5023583330326586`*^9, 3.5023583769241695`*^9, 3.5023594444352274`*^9, 3.5024388074755507`*^9, 3.5024388842569423`*^9, 3.502439115738182*^9, 3.502465023790144*^9, 3.5024650620223308`*^9, {3.502465196206006*^9, 3.502465214605058*^9}, 3.502465278302702*^9, 3.5024657786801567`*^9, 3.5024661046854463`*^9, {3.5024665279192257`*^9, 3.502466545045193*^9}, 3.5024701330344243`*^9, 3.502470384291275*^9, {3.502470433044259*^9, 3.502470462974934*^9}, 3.502470514549223*^9, 3.502470920502491*^9, 3.5024709719650946`*^9, 3.502473440444316*^9, 3.502473545162588*^9, 3.502473653197504*^9, 3.50247375792022*^9, 3.5024738732650814`*^9, 3.5024739197278996`*^9, 3.5024741646591473`*^9, 3.5024742813410864`*^9, 3.5024743460533457`*^9, 3.5024743959021397`*^9, 3.502474589970357*^9, 3.502474758963546*^9, {3.5024748199209414`*^9, 3.502474842832223*^9}, 3.502474932311983*^9, 3.502475420395883*^9, 3.502475518941256*^9, 3.502476333998311*^9, 3.5024768459677815`*^9, 3.502477015290479*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXQmUFsURHvbffy8XRBAFEV1YOcSTxIuNCvHAE0UjKirKiiCogALexmCI RxKNm2ie+mLCy4tRE/Oe+nhZXvI0HnjHgBLEY4koHmgUiaIhxGOzX9X0TPf8 VT3z//+CYtjH/jt/T9VX3dXV1T3V1cPo5tlTJk1rnj11YnPDYTObz58ydeKs hlEzZnYU5boEQZcpHb93NwS4bg8C89He8a99Kj5Q0jnXg+lPLhTQzr/4HFHE fbqdiasvXVbWrF//2cjFi97C75iFj66omDPvV88GuWtvu/Xph2ZMn4/foII+ cyCJMLZJge9Bl9UNq1Z9BL7z7/n9EiDfeNPPngDak1On3BdUtI844Lagct2h B99uZN17+WV/CqtwyW/vWGxqFlTgs0+KzHq67ArSKfff9wJgFlw4u3XxxDP/ AEkrThp7J2SgDriHOoF2vxeWvhMMSsGupss60KNiqCfaAFxg3nLD9QuBefjT T63cs+2V93dPgcvRZQ1Em2oaKKgePYF7e+kwX7CCu69du37CgtaX7rpqzgNQ JCplKhIM19k/ZXZ0/8kPPrAc7GuOOmLevGuveRjfUR7sr7Ovp8886ggWsAIC rMFInW0ds6HCS5on3NN2yri7cU3SDkqa8cdMjJvoqlXHHfsbyIJ6g0N1GWvZ sIH74vhTf4fe7r169SeH6RwfMgf6FrYCIbDbI3SONcwBXFCj21Cto3SOD7jM 1Ap/g9E6+fssAL0LvUIIro/ROd7jMvQIBFBPjNHJ/8llUCxMBi0JjtPJ3+Uy 1AMKpW/H6+SruAxdB9Om1p6gk7/NZWghKkO2OzZpDux7cqip0Xdwoo75ZkyO TiXyk3TyN+IqROgn6+Qr4waixkQ+Tid/PSaH56AGnpJKHo0ofPOQv8Zl8Etw HvTtVCZnN50PWicH/NPUErR1lLS1NAUVVFAVTG5tj6AMXVNLW6UgaQWXwT2h HfTtNFsS/Fpb0NI0OWiF/bKT6UDl7+2An9waSmoKWtqYIynmVS4b8vrra9B3 5B7Gs5huRkzUoiBqiGkcw0TVMLVoa5lMEtH2qM0dMB1tFWvxj7jTUAvUJjhd b2zo0oP2tpagQwCVcXsdUURWCUHL4zFFAwTfHPxuDj5hEDZ+4jKhOVJrlgtd d4bemgoqqw1aW2ydZu/Ctnj4wR1hXAUTWFwv9m2huKgxFY7+yAgJPYNZhsLg amho4dsEfby8wmVQOpRP35p18peFppyZSu5UxkPO/Z4zkzB9m6iTvxgbJdYz 5LfPSiWHz4arp282OVEvYyI4MTgzGm6TdMxlQgM95C8Ihjc5lTzy2SnkS7kM jYsmprN18r8L6puSSu54Vg/5kthSgE6K9Kzulwid4yF/XkA/J9mXzwuY5+iY zwmY56aSO+ge8sUC+nmp5A66h3yRgD4tldxB95D/TbCU6ankjh16yJ8V0Gck +zIkcvzUjFRMZ+R4yP8qjMvzU8nhIOiBKYX8GS5DRVAh+nZBKjkqggqlkT8t oM9MJXe63kP+lGBYs1LJ4SDgKOibh/xJoetnJ7v+ScGcZqdiAg9PLmnkTwhd f2EquWNYHvLHuQxWQo/5+HZRKrnT9R7yx4Suv5jJeR1TU7DYRam1guCFRs4u CqRVxWOC1TiShPWZsDoSyqQF00LB6C5hafqadyttzUvfpYVu1sXvQqHxl/gb Lyx2/QvgR4SRcKlfRsYmSS16VBhSKdLK6E6pbZexNO/61zXLrKb6iNC2y/Qx 9IgwoD3kDwvu4vJUcgfdQ/6QgH5FKrmD7iH/i4D+XYucqIdTIDJnByKDeg56 Yk2OeBrFJKs4MokJOYpMclg0F82J+J0Yd34UHbhSr+PwmDyCrWdYPBYkxZuI E1eQP00skhvCcVWoyNBhsc5x1Uo7ropanyjYjqey/BxeiTYZFDwFhOB23Bh1 4hBvtQm94heECM9GodejhaHyPb0CvELuaiLL+AUkIrBGKoTiUc0WR6JGCW31 iOIVSB2e/G0xRgQUjO+wB8CPjF149KA4R0fnuaQGmkQF0a1AhhXCVNFPQN1f 8MQeVB5pNdAmjB4dAlQTPTXB3X2Z1QmxXKWjspKq0TQ72ox6RgFcDlaTQUZb BR7IufSZRyVNCBl/iXUY0zsr3+/rUFfTZxVqARbUAJYEDaLGuzEL+gP9QgY2 N+kDruPqwKygM+gLraSxuwsDOJGauXp1fsxDBKo2YxCtGiI06gc6yg2MAk4z dHA9kElRT4CTkV2to9woowyIxxyKaHBco6P8VEZpYFKMAVgwffOg3FSIAvX2 Y1LnIftaHeXnMQoUABOEFW8naPc6HeUWRoH1wSZMzH9bAeWHOsptjAJyGBxY UJet4yEbofxIR/lFjIK6oEXQS/d4iEJVNPivT5rtL+NRBG1gqAOHzGILxsU1 FIv70NoNek3m8UAy2zoYBKiN8Z95vo0BZOJVIEHPwZJ+ogP/Oh6hqKrtRaE4 3mHMw6WYgRftQrXoqHdyA+2pACw36xz0OeJrdD/7hu8mcp/HcSWt6s1Px+o+ 60rYhmLHUvz2g43RM5Rb+OyVc569KkJZxW4y2LK2pz9F7CBQ8YG23urK2SKw 68LpAaXH/wuxSorsf5Usc/N43ay1Ter+Zq1luM+JP1s4Ewvfa+3woG50y9xn Z1+ZDDTyoro+M1TINlRG4+LUaObgbGTS/DmgdFapbCtdyfzQkvfMHrVysI34 46DcAA9OOH049LuoZbVBlmAfG0fJgcH+9KVnqexiWffkADe61VccteI9TbcS bbm6lTA13WYM8Wq6zRr0lsps3SoWLAW5jZale5qWJdpytSxhalrOGKzXtJyR XSzLoOXNtrwxbHmzN+5UbywuLNwpkgMoNU5ZrFWUULUaBVZWaMGu0dCiiqVp e1B2Uqmsf3nsRS4kvuzVon2fWo6LYG989NS56oWyvFDGfZx3JbKIcGBWi/fM 3woXk/52E+RUCWXSQ3yFpz5hup59z5Eb/t2w4qs08RUCXNZeKK0qlcmqZO2M TccQCpqYy2YDnnMbu2cs26MMXqls202qSrbXoetOPnr0/3A9QNPrIV/yfZ6q c+Y0km0LKs/OMU+0wdTb4okjP9KmY58U9MECz3YpPIMEnr4pPAMFnu1TeHaK eaJ8jn4pPOFyCmkKyIOgXaUdRG0NiCmBTpQ7pqD3F3gaUngaBJ7+KTw7CjxM HGYUmUV0EP7IsSs1yr6DgN9o49c5K2A8c9DyNVs+FH2GO73YSsSGH4ngDvXk uNVbcanWYDKJQjytSdtnUcWzbVHqIMTTHinbYJgBVhuJN5Dq4368/7KdgDoo oTcrAGg2o4qpuCRicEIE9laibggrXUTX9BFEDPFYlxwq1K2rt4C/c4rFh5vx 2ADHZjHxDE3hCc+yYEsYcigbdhdxrPcSKHdNQd9a4NkthaenwLN7Ck8PgWeP FB5+aqLsI2iLePZM4QlTDJxTb8NEbW0pUH4jBb2bwPPNFJ6uAs9eKTz1As/e KTxbCDz7pPDUCTz7pvDUCjz7iRquESiHp6BX8w3nXGFTCk+VwPOtFJ68wBOe DjaHxyK/3eFwitqsrxSwD7A9TzjvWCcXi3VuOUFEuG2eZd4pJuk4H/VnQt4I t0nR9Bk6UF+ytNSkLoKIkQmtRdvt8WqgmFkngf5tu79rnQYYtCyJAV8I0OHR b/b31VHqh60fnxmFkM5x2YN0i/6cy5xsvoOTQ/Izgcizkv9UID9UJ/+vQD5K J18vkB+mk/9HID9cJ18nkB+hk/9bID8yqb5PBKKjdMyPBfKjdfK1Avlonfwj gfwYnfxDgfxYnfxfAvmYpD7WCETH6ZgfCOTH6+SrBfLv6OTvC+QnuEPQXk5m GYLvCZBjbcgaFzKb83439hUY3IQcnuHX/bbJy+LFao7Kqoo5KPJOLBUeilxK +CoAe0IiJGnVnUCnJ4W3XUzyeuH7AoxDpQcDCy9rBpkEfYoLzc8fQaTyrL46 fOUCliTRad9TyzOUN2PIKFH8NN1Uw9cymIUwLYrG6+QrBfLTk2MxfLuCOe5M C+UzdMzXYnJgUvb4BJ18BZdBV9FDS7NOHr7qwMQz6JH4TJ08fCeBCfwQ+USd PDz0j+zf6LzDWUl9tMVjNzq/OEnHfNk1ChqUZ+vkL8VdEr3bY4pOHh5YN9nd 9NIFTwRvWayP6LHyHJ18aTxWoleZnKeTh8e/zStHqKnTkupbEnc4srcplX66 jvl83CVQH9V4hk4enok2z8DUQRfo5OEhZ5BBfVSZmbbvqg0shxmwT8g2cvl4 caWpCRoAPc5yXU28LGwNWuTwkOhq+AAwvY4Kx2xM5cNjptmiQ/zb1tKSmvhK q3Q+NBsdAYBYiL/IdnA1QRx00l18oi0hMGwYmsK4hvmHxyc5ElIdaSOrn388 RjWnJ6Ah51BhndX6OEZW1AlU0geqbdzzFbaAyiCaS4KiDtNydDePoQTjRNI/ 9EIGeqVuzw/SZ5V5yxXqhAMCMD6odE5yMP6Z6c05JYww+2DRXF3SAuYEVfLM FIb2NTrnfO5QTBDwQ2gWZKKu5gyXOUMisd/LhgYykKPKOAeBEQD/hO5A86/X Ee5hBLsC5lVgaAqqD8Nu0RHuYgSjNtMEuw7WwQoJ4Q5WArwDWmGrz7QguDXZ W+GpEFQcYmAUGImoNNRxuy6Oo5+dkrXJMe7OytrkeE8V9ACHgiZBi+gXGGy/ 0KtsuKTOxtJZPbkYUh9wkLv8NKJGD07WNKLq2E/gsBJUbnw61N5gqrPhs4xY Uxsky8jXCeVmzDV6cLJ2AkcJ8/A35vQYDnrRKrxR6YENkE2n9UAnZNP5eqDc zNBGD07WHgizYuxZ1qzR4b8HKp2wARJHtU7ohMTRr94wqLHLYO7G/M06ZcjX x/pJ71+u689T2fRdxwVjps+Hq6cHs42YSbqRfXyYj1FKJulOAquSScq7sfS6 1eD++xYEw3ri1pHBzYveCvdFN0Y66YDy2ItcwvBR6DyWDWa1hhmLQkL362x8 wJ8eZsy6FewUGpqvs/FDAL1iAA4CbFgX0tr4jzobn4XPY0lp2KJ3LizQ2fil APSiDqznzVtn+QmJ82xwETTho6eOI6VNSnmDvH8p5yzWCfS9isSocenp77YC Bo8M5zkZ96Un3qqMkL0Euj0ylnmSraQMQqmsb2GLcN29DEipzJN0lhWij1zT HhuvppfLNXhM57hU5njC4iCGi2W6p3TkC2WOZ3SOWTLHszoHxwIrTUqV4Vik c8xw/QKe1MHxnM4xzeXAjItn+iVJDZ0r0y3VkafKHMt0Do400ysfsCVkOF7S OSbFHMZ9YkvnFZ1jYiEHPOdynaNZ5nhV5ziDOcwbxA3Ha0mdjo/pzFQDupU6 Mm/QOJMTZhmaLt7Q2cZ52N7S2Xg7jmbQArZVzFZu4HlsLMJM0pEI3iEsO/rM m6W09jHPTRBFMzNvbUbx4Mzh5WNjTFQXmHgcIMzVLmYJMWYB3bzpPtxsLjnQ PNoD/aHdpWVFm3l7P3p1jpGw1hZQcrT5SBccIwzgn+h2fHghB0bzuuR4HCXT rdeRD5E5PtU5OHel0rzTx3B8rnOMdDnMG4TadY4DPRwVOtv+HrZKnY1z0px3 NkVsVUkV7xcT26+JIuIaXcY+hWy4ppt1OhsnFxZMoHSzXmfj3MeCWZRudtPZ 9nTZzPRFNz1PgJwvSntvBWw9kvoLH9bMZISFf0S8tS5jqMtmZhq6uY3OxqGN aIIyjxl0s7fOFkYQxOmGKMJ1c6l5BvzgK89LRNHXxi8pO2VALKJgXiKK8FxC mDQc2PnT5r8sKCItpaFQXDRHEcWOLK7kHJV+aQLCEwrlJqxsnyan0ZVTavYK Z80785grZ2B5Jta7EB+mFuMP1s1/G5mX5lii8OTGh3Mj9jlsPrpZkOrOD/bR 7IPoRkTsyVzfymUzUxDd9CSib+lhG6azdfWweRLGw/fbJedJuunJ/6512ZzJ yE7nJq5qD7EnO9sKQpgUgIjNk2ydi9nsPX66eYDNVhAi4f8lS/iPugp5I5F+ nhE2DzmIgvnx4ALYGAafdsIs3S4oTbS/M+/TdYmHBYMu/wN3LOkv\ \>"]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{912, 620}, WindowMargins->{{6, Automatic}, {Automatic, 7}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 92, 1, 36, "Subsection"], Cell[662, 25, 3012, 71, 132, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3711, 101, 360, 6, 28, "Subsection"], Cell[4074, 109, 381, 13, 57, "Input"], Cell[4458, 124, 475, 14, 57, "Input"], Cell[4936, 140, 389, 13, 57, "Input"], Cell[CellGroupData[{ Cell[5350, 157, 219, 7, 31, "Input"], Cell[5572, 166, 3643, 84, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9252, 255, 172, 5, 31, "Input"], Cell[9427, 262, 3664, 84, 70, "Output"] }, Open ]], Cell[13106, 349, 1259, 38, 72, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[14402, 392, 362, 6, 28, "Subsection"], Cell[14767, 400, 385, 13, 57, "Input"], Cell[15155, 415, 419, 14, 57, "Input"], Cell[CellGroupData[{ Cell[15599, 433, 184, 6, 31, "Input"], Cell[15786, 441, 2493, 54, 70, "Output"] }, Open ]], Cell[18294, 498, 546, 18, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[18877, 521, 378, 6, 28, "Subsection"], Cell[19258, 529, 526, 17, 57, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[19821, 551, 549, 9, 28, "Subsection"], Cell[20373, 562, 660, 10, 29, "Text"], Cell[21036, 574, 586, 17, 67, "DisplayFormula"], Cell[21625, 593, 780, 14, 32, "Text"], Cell[22408, 609, 570, 17, 45, "DisplayFormula"], Cell[22981, 628, 294, 4, 29, "Text"], Cell[23278, 634, 251, 8, 31, "Input"], Cell[23532, 644, 353, 6, 29, "Text"], Cell[CellGroupData[{ Cell[23910, 654, 299, 8, 31, "Input"], Cell[24212, 664, 2495, 54, 71, "Output"] }, Open ]], Cell[26722, 721, 353, 6, 29, "Text"], Cell[27078, 729, 572, 15, 31, "Input"], Cell[27653, 746, 422, 7, 29, "Text"], Cell[28078, 755, 437, 10, 31, "Input"], Cell[28518, 767, 695, 11, 29, "Text"], Cell[29216, 780, 992, 21, 31, "Input"], Cell[30211, 803, 516, 8, 29, "Text"], Cell[30730, 813, 1027, 18, 31, "Input"], Cell[31760, 833, 471, 7, 29, "Text"], Cell[CellGroupData[{ Cell[32256, 844, 5638, 125, 132, "Input"], Cell[37897, 971, 7010, 173, 134, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44956, 1150, 462, 7, 36, "Subsection"], Cell[CellGroupData[{ Cell[45443, 1161, 375, 7, 31, "Input"], Cell[45821, 1170, 2892, 67, 52, "Output"] }, Open ]], Cell[48728, 1240, 1271, 41, 50, "Text"], Cell[CellGroupData[{ Cell[50024, 1285, 1214, 30, 31, "Input"], Cell[51241, 1317, 3238, 81, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54516, 1403, 2042, 58, 52, "Input"], Cell[56561, 1463, 2330, 52, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58928, 1520, 2481, 65, 72, "Input"], Cell[61412, 1587, 1361, 33, 32, "Output"] }, Open ]], Cell[62788, 1623, 253, 3, 29, "Text"], Cell[CellGroupData[{ Cell[63066, 1630, 990, 27, 31, "Input"], Cell[64059, 1659, 3320, 82, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67416, 1746, 827, 22, 31, "Input"], Cell[68246, 1770, 3302, 78, 52, "Output"] }, Open ]], Cell[71563, 1851, 268, 5, 29, "Text"], Cell[CellGroupData[{ Cell[71856, 1860, 2234, 63, 52, "Input"], Cell[74093, 1925, 2143, 47, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76273, 1977, 1297, 38, 31, "Input"], Cell[77573, 2017, 2023, 43, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79633, 2065, 1558, 42, 31, "Input"], Cell[81194, 2109, 1892, 36, 32, "Output"] }, Open ]], Cell[83101, 2148, 552, 9, 29, "Text"], Cell[83656, 2159, 5763, 138, 152, "Input"], Cell[CellGroupData[{ Cell[89444, 2301, 3086, 70, 72, "Input"], Cell[92533, 2373, 2668, 65, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95238, 2443, 148, 3, 31, "Input"], Cell[95389, 2448, 2635, 59, 32, "Output"] }, Open ]], Cell[98039, 2510, 200, 2, 29, "Text"], Cell[CellGroupData[{ Cell[98264, 2516, 2505, 64, 92, "Input"], Cell[100772, 2582, 1301, 38, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102122, 2626, 238, 3, 36, "Subsection"], Cell[102363, 2631, 935, 22, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[103335, 2658, 382, 7, 36, "Subsection"], Cell[103720, 2667, 1232, 20, 47, "Text"], Cell[104955, 2689, 1169, 30, 47, "Text"], Cell[CellGroupData[{ Cell[106149, 2723, 253, 4, 27, "Subsubsection"], Cell[106405, 2729, 445, 11, 31, "Input"], Cell[106853, 2742, 1538, 22, 47, "Text"], Cell[108394, 2766, 282, 5, 29, "Text"], Cell[108679, 2773, 244, 3, 29, "Text"], Cell[108926, 2778, 168, 4, 31, "Input"], Cell[109097, 2784, 851, 13, 47, "Text"], Cell[109951, 2799, 157, 4, 31, "Input"], Cell[110111, 2805, 350, 6, 29, "Text"], Cell[110464, 2813, 141, 3, 31, "Input"], Cell[CellGroupData[{ Cell[110630, 2820, 160, 3, 49, "Input"], Cell[110793, 2825, 1124, 16, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[111954, 2846, 234, 6, 47, "Input"], Cell[112191, 2854, 1197, 17, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[113425, 2876, 173, 4, 47, "Input"], Cell[113601, 2882, 1197, 17, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114835, 2904, 394, 10, 52, "Input"], Cell[115232, 2916, 1217, 16, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116486, 2937, 385, 10, 31, "Input"], Cell[116874, 2949, 1910, 39, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118821, 2993, 577, 17, 31, "Input"], Cell[119401, 3012, 2043, 41, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121481, 3058, 272, 6, 31, "Input"], Cell[121756, 3066, 1791, 37, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123584, 3108, 222, 5, 31, "Input"], Cell[123809, 3115, 1821, 36, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125667, 3156, 331, 8, 31, "Input"], Cell[126001, 3166, 2122, 42, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128160, 3213, 279, 7, 31, "Input"], Cell[128442, 3222, 2083, 42, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130562, 3269, 249, 6, 49, "Input"], Cell[130814, 3277, 1544, 25, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132395, 3307, 149, 3, 31, "Input"], Cell[132547, 3312, 3886, 68, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[136470, 3385, 180, 4, 31, "Input"], Cell[136653, 3391, 45586, 789, 439, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[182288, 4186, 223, 3, 27, "Subsubsection"], Cell[182514, 4191, 458, 10, 31, "Input"], Cell[CellGroupData[{ Cell[182997, 4205, 198, 5, 35, "Input"], Cell[183198, 4212, 1135, 16, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[184370, 4233, 221, 5, 48, "Input"], Cell[184594, 4240, 1154, 16, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[185785, 4261, 157, 3, 31, "Input"], Cell[185945, 4266, 1141, 16, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[187123, 4287, 158, 3, 47, "Input"], Cell[187284, 4292, 1159, 16, 30, "Output"] }, Open ]], Cell[188458, 4311, 342, 6, 29, "Text"], Cell[188803, 4319, 279, 5, 29, "Text"], Cell[CellGroupData[{ Cell[189107, 4328, 373, 11, 51, "Input"], Cell[189483, 4341, 1139, 16, 30, "Output"] }, Open ]], Cell[190637, 4360, 411, 7, 29, "Text"], Cell[CellGroupData[{ Cell[191073, 4371, 138, 3, 47, "Input"], Cell[191214, 4376, 1145, 16, 30, "Output"] }, Open ]], Cell[192374, 4395, 196, 2, 29, "Text"], Cell[CellGroupData[{ Cell[192595, 4401, 366, 9, 31, "Input"], Cell[192964, 4412, 1888, 39, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[194889, 4456, 406, 10, 31, "Input"], Cell[195298, 4468, 1957, 40, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197292, 4513, 272, 6, 31, "Input"], Cell[197567, 4521, 1758, 36, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199362, 4562, 222, 5, 31, "Input"], Cell[199587, 4569, 1785, 36, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[201409, 4610, 331, 8, 31, "Input"], Cell[201743, 4620, 2028, 40, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[203808, 4665, 279, 7, 31, "Input"], Cell[204090, 4674, 1974, 40, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[206101, 4719, 249, 6, 49, "Input"], Cell[206353, 4727, 1447, 24, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[207837, 4756, 146, 3, 31, "Input"], Cell[207986, 4761, 7816, 132, 248, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[215839, 4898, 230, 5, 31, "Input"], Cell[216072, 4905, 59935, 1029, 439, "Output"] }, Open ]], Cell[276022, 5937, 238, 3, 29, "Text"], Cell[CellGroupData[{ Cell[276285, 5944, 665, 15, 48, "Input"], Cell[276953, 5961, 2158, 44, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279148, 6010, 331, 8, 31, "Input"], Cell[279482, 6020, 2252, 45, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[281771, 6070, 279, 7, 31, "Input"], Cell[282053, 6079, 2204, 45, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[284294, 6129, 340, 8, 49, "Input"], Cell[284637, 6139, 1809, 33, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[286483, 6177, 146, 3, 31, "Input"], Cell[286632, 6182, 3935, 68, 248, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[290604, 6255, 232, 5, 31, "Input"], Cell[290839, 6262, 60257, 1035, 439, 52807, 915, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)